Attacher un fichier joint sans distonction de nom

[Philippe]

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]

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]

cool !

merci