Envoi d'un email par SMTP

//Fonction qui envoi d"un email simple par protocole SMTP

 

FONCTION bEnvoiMailClassique(sExpediteur est une chaîne, sListeDestinatiare est une chaîne, sSujet est une chaîne, sMessage est une chaîne,

                             sSMTPServeur est une chaîne, sSMTPUtilisateur est une chaîne, sSMTPMotdePasse est une chaîne,...

                             nSMTPPort est un entier)

 

 

SI PAS EmailOuvreSessionSMTP(sSMTPUtilisateur,sSMTPMotdePasse,sSMTPServeur,nSMTPPort,Faux,optionSSL) GOTO erreur_proc

emMail est un Email

emMail.Expediteur = sExpediteur

 

 

POUR TOUT CHAÎNE sDestinatiare DE sListeDestinatiare SEPAREE PAR ";"

     Ajoute(emMail.Destinataire,sDestinatiare)

FIN

 

 

emMail.Sujet = sSujet

emMail.Message = sMessage

 

 

SI PAS EmailEnvoieMessage(sSMTPUtilisateur,emMail) GOTO erreur_fermesmtp

 

 

EmailFermeSession(sSMTPUtilisateur)

RENVOYER Vrai

 

 

erreur_proc:

Info(ErreurInfo(errComplet))

RENVOYER Faux

 

erreur_fermesmtp:

Info(ErreurInfo(errComplet))

EmailFermeSession(sSMTPUtilisateur)

GOTO erreur_proc