Bonjour
J'aimerais pouvoir envoyer de maniere automatique tous les fichiers .doc contenus dans un repertoire a une boite email via outlook (en pieces jointes).
Le nombre des fichiers est variable , leur nom aussi.
Voyez vous une solutions

Créer une archive du dossier et envoyer l'archive?

j'y ai pense mais le destinataire n'est pas du style a utiliser winzip/rar j'aimerais lui envoyer tous les fichiers (4 ou 5 maximum , des petits fichiers).
En fait j'aimerais trouver une fonction qui me permette de scanner tous les fichiers d'un repertoire (pour les attachers ce n'est pas un probleme)
Merci

faire un truc du style
dans un dossier specifier
pour chaque fichier dont le nom contient le caractere "_"
MonMail.Attachments.Add fichier...

je dois etre mauvais parceque je trouve vraiment pas comment faire

J'ai trouve je sais je suis pas tres bon mais is ca peut aider quelqu'un alors...
 
Set pres = CreateItem(olMailItem)
Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject" )
    Set f = fs.GetFolder(chemin)
    Set fc = f.Files
     
    pres.Recipients.Add "XXXX@XXXX.fr"
    pres.Subject = "XXXXXXXXXXXXXXXXXXXX"
     
    'scanne le fichier et attache tout ce qui doit l'etre
    'et transfere les courriers vers les archives
    For Each f1 In fc
        If InStr(1, f1.Name, "_" ) Then
        pres.Attachments.Add chemin & f1.Name
        FileCopy chemin & f1.Name, "chemin" & "Archive\" & f1.Name
        f1.Delete
        End If
        Next

pres.Body ="XXXXXXXXXXXXXX"
pres.Send

...