POUR TOUTE LIGNE DE LISTE_REQ_DestinatairesMail
NbDest++
HLitRecherche(T_Adherents,Nom_Prénom,LISTE_REQ_DestinatairesMail..ValeurAffichée,hIdentique)
sAdresseMail=T_Adherents.E_mail
sLstDest=sLstDest+sAdresseMail+";"
SI nNbDest=20 ALORS
Envoi_Mail_Adhérents(sLstDest,nNbDest,sObjetMail)
nNbDest=0
sLstDest=""
FIN
FIN
PROCEDURE Envoi_Mail_Adhérents(sListeDestinatires est chaîne,nNombreDestinataires est un entier,sObjetMessage est chaîne)
sNomUser="toto@free.fr"
EmailOuvreSessionSMTP(sNomUser,"",sAdresseSmtp,25)
Email.Destinataire=sListeDestinatires
Email.Cc="toto@free.fr" Email.Expéditeur=sNomUser
Email.NbDestinataire=1 Email.Message =SAI_TexteMail
Email.Sujet=sObjetMessage
SI EmailEnvoieMessage(sNomUser)=Faux ALORS
Erreur(EmailMsgErreur(Email.Erreur))
Erreur("L'envoi du message à "+sListeDestinatires+" a échoué")
SINON
Info("L'envoi du message à "+sListeDestinatires+" s'est bien déroulé")
FIN
Multitâche(-1)
EmailFermeSession(sNomUser)
RETOUR
Session smtp : transaction refusée Vérifer le contenu des variables email.expéditeur et email.destinataires
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6523&post_id=25692