Attacher un fichier joint sans distonction de nom

Philippe · 18 Février 2005

Bonjour tout le monde

J'ai trouvé une petite macro efficace pour préparer des mail depuis excel qui se mettent en place direct dans outlook.
Mon seul probleme est le suivant

le "attachement.add" demande a etre suivi d'un nom de fichier précis, ce que j'aimerais c'est qu'il mette en fichier joint tout le contenu du dossier.
bref de
Attachement.add c:/mes documents/photo_du_week_end/vanessa.jpg
à
Attachement.add c:/mes documents/photo_du_week_end

merci de vos éventuelles réponses

kloss · 18 Février 2005

hello

Sub AttachAll()
Dim fls As Object, f1 As Object
Set fls = CreateObject("scripting.filesystemobject").getfolder("c:\mes documents\photo_du_week_end").files
For Each f1 In fls
Attachement.Add f1.Path
Next f1
End Sub

++

Philippe · 18 Février 2005

cool !

merci

Attacher un fichier joint sans distonction de nom

Philippe

Guest

kloss

Guest

Philippe

Guest

Discussions similaires