Discussion :

[xp4udev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[abertaud]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xp4udev]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each objFile in colFiles
	objEMail.Attachments.DeleteAll
	objEMail.addattachment   objFile.name
...