1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
gSessionSMTP est une EmailSessionSMTP
gSessionSMTP..AdresseServeur = "mail.igfcommunication.com"
gSessionSMTP..Nom = gsUser
gSessionSMTP..MotDePasse = gsPassword
gSessionSMTP..Port = 587
// Contenu de l'email
UnCourriel est un objet Email
UnCourriel..AdresseExpéditeur = gsUser
UnCourriel..Expediteur ="expiditeur"
UnCourriel..Destinataire[1] = "adresse destinataire"
UnCourriel..Sujet = "Envoi email depuis WinDev."
UnCourriel..Message = "Envoi d'un message email depuis WinDev."
UnCourriel..HTML =""
// Envoi de l'email
SI EmailOuvreSession(gSessionSMTP) = Vrai ALORS
SI EmailEnvoieMessage(gSessionSMTP,UnCourriel) = Faux ALORS
Erreur("L'envoi de l'email a échoué.", ErreurInfo(errMessage))
FIN
SINON
Erreur("Impossible d'établir la connexion", ErreurInfo(errMessage))
FIN |
Partager