|
Inicio → WINDEV 25 → Boas Vindas ao Fórum Oficial da Comunidade Brasileira e o primeiro Exemplo: SEND EMAIL |
Boas Vindas ao Fórum Oficial da Comunidade Brasileira e o primeiro Exemplo: SEND EMAIL |
Iniciado por adrianoboller, fev., 10 2015 12:22 PM - Sem resposta |
| |
| | | |
|
| |
Membro registado 3.696 mensagems Popularité : +175 (223 votes) |
|
Publicado em fevereiro, 10 2015 - 12:22 PM |
Para o primeiro Post segue esse exemplo desenvolvido pelo sr Vilani e adaptado por mim, que esse espaço seja muito bem utilizado por todos, por essa conquista vem de encontro ao respeito da Pcsoft com todos os desenvolvedores aqui o Brasil e uma forma de aproximar as nossas dúvidas diretamente para a Pcsoft nesse fórum oficial. Espero que venha ser uma ferramenta muito utilizada por todos. Aqui ficaram as dúvidas, sugestões, exemplos DO Windev, Webdev e Windev Mobile.
Segue meu primeiro exemplo inaugural:
SendEmail("adrianoboller@gail.com","Monitor de Atividade SQL","Teste do sistema de mensagem de erro do monitor de atividade sql 465","")
Procedure SendEmail(Destinatario, Assunto, Mensagem, Anexo)
EmailSetTimeOut(30)
UserName, Senha is string = ""
UserName = "adrianoboller@gmail.com" Senha = "777777"
IF EmailStartSMTPSession(UserName, Senha,"smtp.gmail.com", 587, False, emailOptionSecuredTLS) = True THEN
MonMessage est un Email MonMessage..Expediteur = UserName Ajoute(MonMessage..Destinataire, Destinatario)
MonMessage..Sujet = Assunto MonMessage..Message = Mensagem MonMessage..AccuséRéception = Vrai
IF Anexo <> "" AND Length(Anexo) > 3 THEN EmailLoadAttachment(MonMessage,Anexo) END
ok is boolean = EmailSendMessage(UserName, MonMessage) IF ok = False ToastDisplay(Error(),toastLong,vaMiddle,haCenter) ELSE ToastDisplay("Email enviado com sucesso!",toastLong,vaMiddle,haCenter) END
EmailCloseSession(UserName)
ELSE ToastDisplay(Error("Unable to establish connection", ErrorInfo(), ... "In case of time-out, check the parameters of the "+ ... """Firewall"" on the port used (587)"),toastLong,vaMiddle,haCenter) END |
| |
| |
| | | |
|
| | | | |
| | |
|