Bonjour,

j'aimerais envoyer des pièces jointes par Lotus.

Mes fichiers sont sur le lecteur "U:\PCD066 (1)xls"


J'ai présentment tout mon message de fait, il reste les fichiers, j'ai quelque chose comme ca.

iFichier c'est le nombre de fichier que j'ai.
Pour le nom du fichier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
"U:\PCD066 (" & iFichier & ").xls"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For i = 1 To iFichier
 
        attachment = ???
        Set attachme = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = attachme.EMBEDOBJECT(1454, "", attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
Next i
Si vous pouvez m'aider pour l'ajout de mes pièces jontes je serais très content!

Merci!