Ajoute(MonMessage..Destinataire,"moi@notre_domaine.fr")

Ajoute(MonMessage..Destinataire,"moi@gmail.com")

Procedure envoi_mail_tracking_test()

sFichierHTML est une chaîne = PROCEDURE_COMMUNE.get_variable_fichier("fichier_HTML_tracking")
sRep est une chaîne = ""

user est une chaîne = get_variable_fichier("user_pour_mail")
mdp est une chaîne = get_variable_fichier("mdp_pour_mail")


// paramètre adresse mail, objet et corps
MonMessage est un Email
MonMessage..Expediteur = "moi@serveur_exchange.fr"
Ajoute(MonMessage..Destinataire,"moi@gmail.com")
MonMessage..Sujet = "test"
MonMessage..Message = "test message"


// Envoi d'un email par un serveur SMTP non sécurisé
EmailChangeTimeOut(10) // 10 secondes pour le time out
// Attention : il faut utiliser le serveur SMTP du fournisseur d'accès Internet
SI EmailOuvreSessionSMTP(user,mdp , "serveur_exchange.notre_domaine.fr",25) = Vrai ALORS
// Procédure permettant d'initialiser la structure email

// Envoie l'email
SI EmailEnvoieMessage(user,MonMessage)= Faux ALORS
Erreur()
FIN
EmailFermeSession(user)
SINON
Erreur("Impossible d'établir la connexion. Vérifier le compte et le mot de passe de l'utilisateur " + user, ErreurInfo())
FIN