Bonjour,
j'ai fait un code qui recherche des données dans une base de donnée Access. (J'ai 1550 membre pour l'instant )
j'ai testé plusieur moyen d'optimiser le code
***directement par le recordset avec une boucle
*** en mettant les emails dans une page texte pour ensuite relire la page texte pour pouvoir envoyer les mails.
mais je n'arrive pas a les envoyer tous........il me dise que mon Server.ScriptTimeout est pas asser long .......il est a 240 ???..........me semble que c'est correct pour toute traité les donnée et meme peut etre trop.....mais en tout cas.
ce pourais t'il que CDONTS soit trop lent pour l'envoie d'email en grand nombre ???
en fin de compte ma question est :
***comment je peux envoyer des emails en grand nombre avec ce composant (cdonts.dll) car mon hébergeur me fournie ce composant et c'est tout.
***avez-vous une idée pour que le traitement ce fasse plus rapidement ??
pour ce qui est du code et bien il est bien standard mis a part que, en ce moment il ecrit dans une page.txt que je le relie apres pour les envoyer au membres.....
mais il n'est pas dans la meme boucle que le recordset bien sur
voici une appercus du code :
set Rs = server.CreateObject("ADODB.recordset")
Rs.Open Sql, Conn, 3, 3
'ECRIT LES EMAILS DANS UN FICHIER TEXTE
'Créer un objet Scripting.FileSystemObject
Set FSO =Server.CreateObject("Scripting.FileSystemObject")
'Récupérer le path long du dossier qui contient le fichier
dir = Server.MapPath("FichierTemp")
'Composer le chemin complet du fichier
Fnm = dir & "\mon_fichier.txt"
'l'ouvrir en mode écriture
set inF = FSO.OpenTextFile(Fnm,8,false)
Rs.MoveFirst
do while not Rs.EOF
texte=Rs("email") & VbCrLf
'Ensuite écrire simplement
inF.write texte
Rs.MoveNext
loop
'FIN DE L'ÉCRITURE DES EMAILS DANS LE FICHIER TEXTE
'LIRE LE CONTENUE DU FICHIER
Set Out = FSO.OpenTextFile(Fnm, 1, FALSE, FALSE)
While not Out.atEndOfStream
lecture = Out.ReadLine
'DEBUT DE L'OBJET CDONT POUR UN ENVOIE DE EMAIL
'ON CRÉE UN OBJET CDONT
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
'SA VIENT DE QUI ?
MyCDONTSMail.From= "dekisavient@delui.com"
'SA VA A QUI ?
MyCDONTSMail.To= lecture
'TITRE DU MESSAGE
MyCDONTSMail.Subject = "test de message auto"
'FORMATE LE CORPS DU MESSAGE POUR AVOIR DU HTML
MyCDONTSMail.BodyFormat = 0
'FORMATE LE FORMAT DU MESAGE POUR AVOIR DU HTML
MyCDONTSMail.MailFormat = 0
'MET LE TEXTE DU MESSAGE DANS LE CORP DE L'OBJET
MyCDONTSMail.Body= text
'ENVOIE DU MESSAGE
MyCDONTSMail.Send
'ON VIDE L'OBJET CDONT
set MyCDONTSMail=nothing
'FIN DE L'OBJET CDONT POUR UN ENVOIE DE EMAIL
wend
'Enfin fermer le fichier
inF.close
set FSO=nothing
Rs.Close
set Rs=nothing
Conn.Close
set Conn=nothing
merci de m'aider ;-)