SI EmailOuvreSessionSMTP("EXWD",SERVEUR_SMTP) ALORS
//Envoi du message.
nb est un entier
nNb_email est un entier
POUR nb=1 A TABLE_liste_email..Occurrence
SI TABLE_liste_email.COL_sel[nb]=Vrai ALORS
Email.Destinataire[1] = Caract(34) + TABLE_liste_email.COL_Nom[nb]+" "+TABLE_liste_email.COL_Prénom[nb] + Caract(34) +" <"+TABLE_liste_email.COL_Email[nb]+">"
SI EmailEnvoieMessage("EXWD") ALORS
nNb_email++
SINON
Erreur(ErreurInfo())
FIN
FIN
FIN
SINON
Erreur("Impossible d'ouvrir une session SMTP")
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5117&post_id=21228