envoi email d'apres table |
Sujet: envoi email d'apres table par scarface38 sur 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 ? |