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.