IDENTIFICATION DIVISION.
*> The internal name of this class must be CLASS-THIS.
CLASS-ID. CLASS-THIS AS "_Default" PARTIAL
INHERITS CLASS-PAGE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS CLASS-EVENTARGS AS "System.EventArgs"
CLASS CLASS-OBJECT AS "System.Object"
CLASS MyMailATT AS "System.Web.Mail.MailAttachment"
CLASS MyMail AS "System.Web.Mail.MailMessage"
CLASS SmtpMail AS "System.Web.Mail.SmtpMail"
CLASS CLASS-PAGE AS "System.Web.UI.Page"
PROPERTY PROP-ATT AS "Attachment"
PROPERTY PROP-ATTACHMENTS AS "Attachments"
PROPERTY PROP-BODY AS "Body"
PROPERTY PROP-FROM AS "From"
PROPERTY PROP-SMTPSERVER AS "SmtpServer"
PROPERTY PROP-SUBJECT AS "Subject"
PROPERTY PROP-TO AS "To"
PROPERTY PROP-TEXT AS "Text"
PROPERTY PROP-FILENAME AS "FileName"
PROPERTY PROP-POSTEDFILE AS "PostedFile".
OBJECT.
PROCEDURE DIVISION.
METHOD-ID. PAGE-LOAD AS "Page_Load".
DATA DIVISION.
LINKAGE SECTION.
01 sender OBJECT REFERENCE CLASS-OBJECT.
01 e OBJECT REFERENCE CLASS-EVENTARGS.
PROCEDURE DIVISION USING BY VALUE sender e.
END METHOD PAGE-LOAD.
METHOD-ID. Button1_Click PROTECTED.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MAILOBJ OBJECT REFERENCE MyMail.
01 MAILOBJATT OBJECT REFERENCE MyMailATT.
01 ATT OBJECT REFERENCE MyMailATT.
01 NOME-ARQ PIC X(100).
01 CAMPO PIC X(100).
LINKAGE SECTION.
01 sender OBJECT REFERENCE CLASS-OBJECT.
01 e OBJECT REFERENCE CLASS-EVENTARGS.
PROCEDURE DIVISION USING BY VALUE sender e.
SET PROP-TEXT OF acstatus TO NULL
SET CAMPO TO PROP-TEXT OF acorigem
IF CAMPO = " "
SET PROP-TEXT OF acstatus TO "Origem nÆo informada"
ELSE
SET CAMPO TO PROP-TEXT OF acpara
IF CAMPO = " "
SET PROP-TEXT OF acpara TO "Destino nÆo informado"
ELSE
SET CAMPO TO PROP-TEXT OF acassunto
IF CAMPO = " "
SET PROP-TEXT OF acstatus TO "Assunto nÆo informado"
ELSE
INVOKE MyMail "NEW" RETURNING MAILOBJ
SET PROP-TO OF MAILOBJ TO PROP-TEXT OF acorigem
SET PROP-FROM OF MAILOBJ TO PROP-TEXT OF acpara
SET PROP-SUBJECT OF MAILOBJ TO PROP-TEXT OF acassunto
SET PROP-BODY OF MAILOBJ TO PROP-TEXT OF acmensagem
SET NOME-ARQ TO PROP-FILENAME OF PROP-POSTEDFILE OF acarquivo
IF NOME-ARQ NOT = " "
INVOKE MyMailATT "NEW" USING BY VALUE NOME-ARQ RETURNING ATT
INVOKE PROP-ATTACHMENTS OF MAILOBJ "Add" USING BY VALUE ATT
END-IF
INVOKE SmtpMail "Send" USING MAILOBJ
SET PROP-TEXT OF acstatus TO "Email enviado com sucesso".
END METHOD Button1_Click.
END OBJECT.
END CLASS CLASS-THIS.