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 26 27 28 29 30 31 32 33
| HLitRecherchePremier(COMPTE,USER_LOGIN,CodeUser)
SI HTrouve(COMPTE) ALORS
adrssmtp est une chaîne = COMPTE.AdrSrvSmtp
sess est une EmailSessionSMTP
sess.AdresseServeur=adrssmtp
SI EmailOuvreSession(sess) ALORS
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
RETOUR
FIN
FIN
FIN
objmessage est un Email
objmessage.Sujet = SAI_Sujet
SAI_Info1=SAI_Info // champs HTML
// Expéditeur
objmessage.Expediteur = SAI_Expéditeur1
nbr est un entier=0
POUR nbr=1 A TABLE_A..Occurrence
Ajoute(objmessage.Destinataire,TABLE_A.COL_Mail[nbr])
FIN
EmailImporteHTML(objmessage,SAI_Info1,"")
SI PAS EmailEnvoieMessage(sess,objmessage) ALORS
Erreur ("Le message n'a pas été envoyé", ErreurInfo(errMessage))
SINON
info("MSG ENVOYE")
FIN |
Partager