PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y 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, 28,jun. 2016 23:06 - 1 respuesta
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 28,junio 2016 - 23:06
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/
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 24,junio 2017 - 19:09
//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/