WDForge.org - Forums

Problème avec emailenvoiemessage

Sujet: Problème avec emailenvoiemessage
par gino sur 25/1/2011 10:16:33

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