Código DO Botão GERAR PDF enviar Email:

d is Document = EDT_Exemplo_DOC
bOk is boolean = DocToPDF(d, "C:\testepdfwx.pdf")
IF bOk THEN
Info("PDF gerado com sucesso")
IF Dialog("Deseja enviar email", ["Sim", "Não"], 1, 2, dlgIconQuestion) = 1
Info("Envia Email")
EnviaEmail("C:\TestePDFWx.PDF")
END
END
Procedure EnviaEmail(cArquivoEnviar)

gSessionSMTP is emailSMTPSession

// EMAILCONF
gSessionSMTP..ServerAddress = "smtp-mail.outlook.com"
gSessionSMTP..Name = "email@hotmail.com"
gSessionSMTP..Password = "senha"
gSessionSMTP..Port = 587
gSessionSMTP..Option = emailOptionSecuredTLS

// MESSAGE
oEmail is Email
oEmail..Sender = "Remetente <email@hotmail.com>"
oEmail..Recipient[1] = "destinatario@empresa.com.br"
oEmail..Subject = "Assunto"
oEmail..Message = "Message"
oEmail..HTML = oEmail..Message

// ANEXO
IF fFileExist(cArquivoEnviar) THEN
EmailLoadAttachment(oEmail, cArquivoEnviar)
END

// Envia Email
IF EmailStartSession(gSessionSMTP) = True THEN
IF EmailSendMessage(gSessionSMTP, oEmail) = False THEN
Trace("ERRO: O envio do email falhou", ErrorInfo(errMessage))
ELSE
Trace("OK: Email sucessuful send")
END
ELSE
Trace("ERRO: Impossivel estabelcer a conexão", ErrorInfo(errMessage))
END