envoi email d'apres table

Posté par scarface38 le 12/9/2007 22:09:42

bonsoir
j'ai une table avec mes clients. une colonne Selection (case a cocher), nom, prénom, Email

lorsque je les selectionnes tous, je ne peux pas envoyer plus de 14 Email les uns apres les autres. après, message d'erreur de mon serveur (trop de tentative......).
d'ou l'idée de prendre que 13 adresses à la fois et les envoyer par lot de 13.
je ne sais pas comment m'y prendre.
voici mon code (sans les modifs pour les 13)
//Ouverture de session SMTP
SI EmailOuvreSessionSMTP("scarface@toto.fr",SERVEUR_SMTP)
//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]+">"
TABLE_liste_email.COL_Etat[nb]="Envoi en cours"
Multitâche(1)
SI EmailEnvoieMessage("scarface@toto.fr") ALORS
nNb_email++
TABLE_liste_email.COL_Etat[nb]="Envoi réussi"
//ajout dans le fichier Maling Client
Mailing_Client.IDClient=TABLE_liste_email.COL_numcli[nb]
Mailing_Client.date=DateSys()
Mailing_Client.Type_envoi=COMBO_Type_envoi
Mailing_Client.Doc_envoyé=nature_envoi
Mailing_Client.mode_envoi=1
HAjoute(Mailing_Client)
//
MultitâcheRepeint()
SINON
Erreur(ErreurInfo())
TABLE_liste_email.COL_Etat[nb]="Echec"
FIN
FIN
FIN

merci d'avance.
ps : je n'arrive toujours pas a mettre mon code dans une petite fenetre. il faut faire comment ?