Bonjour
J'ai un petit problème avec cette fonction qui marche une fois sur 2
Je m'explique :
j'ai une liste d'adresse e mail à laquelle je veux envoyer un message
Je crée donc une liste de 20 destinataires séparés par des ;
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
Si j'ai 80 destinataires,
l'envoi pour les 20 premiers fonctionne très bien
l'envoi pour les 20 suivants plante
l'envoi pour les 20 suivants fonctionne très bien
l'envoi pour les 20 suivant plante
Quand ça plante, j'ai le message
Citation :
Session smtp : transaction refusée Vérifer le contenu des variables email.expéditeur et email.destinataires
Je comprendrai si ça plantait à chaque fois mais une fois sur 2, ça me dépasse
J'ai essayé avec email.nbdestinataires=20 mais ça plante direct (débogage)!
Avez vous une idée sur ce qui se passe ????
Merci d'avance pour votre aide