Email- fichier joint

Bonjour, je fais une recherche de type de fichiers "ext" par exp, et je déclanche la procédure d'envoi de message via internet pour chaque fichier du résultat

Code:

---

1 2 3 4 5 6 7 8 9

Set objEmail = CreateObject("CDO.Message") . .   For Each objFile in colFiles objEMail.addattachment objFile.name objEmail.Send Wscript.Sleep 8000 ' pour laisser l'envoi en cours s'effectuer correctement next

---

je reçoit effectivement quelques messages, mais avec seulement comme fichier joint le premier fichier de la collection colFiles et parfois les 2 ou 3 premiers fichiers joint en même temps sachant que je parcours toute la collection colFiles qui peut contenir selon le cas plusieurs fichiers et de taille différente .
le test dont je parle est effectué sur des fichier de taille différentes ou similaires mais tous moins d'un Mo.

pourquoi envoies-tu un mail par fichier joint ?

Le destinataire ne change pas, la seule différence qui existe entre chacun des mails que tu voudrais envoyer, ce sont les fichiers joints.

N'est-il pas mieux de tous les envoyer en même temps ? Avec un truc ressemblant à ca :

Code:

---

1 2 3 4 5 6 7 8

Set objEmail = CreateObject("CDO.Message") . .   For Each objFile in colFiles objEMail.addattachment objFile.name next objEmail.Send

---

C'est a vérifier mais je crois qu'il n'est pas utile de rajouter un sleep après le send

merci pour ta contribuation, la réponse à ta question c'est que des serveurs de messagerie n'acceptent pas que la taille des ficheirs joints dépassent une limite: 2 m, 10m , ...
le sleep c'est pour donner le temps au script de "uploader" le fichier joint

à priori avec .addattachment , tu rajoute une pièce jointe à chaque tour de boucle ... essai "d'effacer" les pièces jointes précédentes

Code:

---

1 2 3 4

For Each objFile in colFiles objEMail.Attachments.DeleteAll objEMail.addattachment objFile.name ...

---

;)