PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 24 → 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
Débuté par adrianoboller, 10 fév. 2015 12:22 - Aucune réponse
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 10 février 2015 - 12:22
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:

//Botão Enviar
SendEmail("adrianoboller@gail.com","Monitor de Atividade SQL","Teste do sistema de mensagem de erro do monitor de atividade sql 465","")


//Procedure Global
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

// Sends the email
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