PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 23 → WX - Código do Botão GERAR PDF enviar Email
WX - Código do Botão GERAR PDF enviar Email
Débuté par BOLLER, 07 déc. 2018 23:51 - Aucune réponse
Membre enregistré
2 871 messages
Popularité : +89 (91 votes)
Posté le 07 décembre 2018 - 23:51
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


by Cassiano

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/