PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WD - Como usar um servidor SMTP segura com o novo comando e-mail?
WD - Como usar um servidor SMTP segura com o novo comando e-mail?
Iniciado por BOLLER ADRIANO, jun., 28 2016 11:06 PM - 1 resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 28 2016 - 11:06 PM
Voici un exemple isolé de code à utiliser :

gSessionSMTP est un EmailSessionSMTP
gUnMail est un Email

// Paramètres de session.

gSessionSMTP.AdresseServeur= G_MsServeurSMTP
gSessionSMTP.Nom= G_MsUser
gSessionSMTP.MotDePasse= G_MsPassword
gSessionSMTP.Port= 587
gSessionSMTP.Option= emailOptionSécuriséTLS

// Ouverture de session.

SI PAS EmailOuvreSession ( gSessionSMTP ) ALORS
Erreur (ErreurInfo ( errRésumé ))
RETOUR
FIN

// Contenu de l`émail

gUnMail.Expediteur= AdrExpediteur
gUnMail.AdresseExpéditeur= Adresse
gUnMail.Destinataire[ 1 ]= DESTINATAIRE
gUnMail.Cc[1]= DESTCOPIE
gUnMail.Cci[1]= DESTCOPIEC
gUnMail.AccuséRéception= Faux
gUnMail.Sujet= SUJET
gUnMail.Message= CONTENU
gUnMail.HTML= ""

SI PAS EmailEnvoieMessage ( gSessionSMTP , gUnMail ) ALORS
Erreur ( "L`envoie de l`email a échoué `" ErreurInfo ( errMessage ) "`" )
FIN


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 24 2017 - 7:09 PM
//Exemplo
gSessionSMTP is an EmailSMTPSession
gUnMail is an Email

// Paramètres de session.

gSessionSMTP..ServerAddress= G_MsServeurSMTP
gSessionSMTP..Name= G_MsUser
gSessionSMTP..Password= G_MsPassword
gSessionSMTP..Port= 587
gSessionSMTP..Option= emailOptionSecuredTLS

// Ouverture de session.

IF NOT EmailStartSession ( gSessionSMTP ) THEN
Error (ErrorInfo ( errSummary ))
RETURN
END

// Contenu de l`émail

gUnMail..Sender= AdrExpediteur
gUnMail..SenderAddress= Adresse
gUnMail..Recipient[ 1 ]= DESTINATAIRE
gUnMail..Cc[1]= DESTCOPIE
gUnMail..Bcc[1]= DESTCOPIEC
gUnMail..ReturnReceipt= False
gUnMail..Subject= SUJET
gUnMail..Message= CONTENU
gUnMail..HTML= ""

IF NOT EmailSendMessage ( gSessionSMTP , gUnMail ) THEN
Error ( "L`envoie de l`email a échoué `" ErrorInfo ( errMessage ) "`" )
END


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