// Envoie mail par SMTP
Si EmailOuvreSessionSMTP(User, PassWord, AdresseServeurSMTP) alors
NonUser = USER
sinon
NomUser = ""
Erreur("Impossible d'établir la connexion"+RC+ErreurINfo(ErrMessage))
fin
// Initialisation de la structure e-mail
Email.Destinataire = "login@domaine.fr"
Email.Expditeur = "toto@moi.fr"
Email.Message = "Test envoie message"
Email.nbDestinataire = 1
// Envoie le mail
SI EmailEnvoieMessage(NomUser) = Faux ALORS
Erreur("L'envoie du message a échoué :" + ErreurInfo(errMessage))
SINON
Info("L'envoie du message a russi")
FIN