envoyer le contenu d'un dossier par mail outlook

Re : envoyer le contenu d'un dossier par mail outlook

Bonjour,
Il me semble avoir vu passer une question de ce genre, y a pas si longtemps...

As-tu regardé les sujets dans la section "Discussions similaires" ?
- Premier sujet sur l'envoi de courrier dans Excel
- Second sujet sur l'envoi de courrier depuis Excel

@Plus

Re : envoyer le contenu d'un dossier par mail outlook

re bonjour
merci PrinceCorwin pour ta réponse mais cela ne m'apporte pas de solution.
Je souhaite par macro lister un dossier ex: "MonDossier" (qui peut contenir 1,2 ou 3 fichiers)
et en suite par la même macro envoyer ces fichiers en pièce jointe par mail

.Attachments.Add ("mes fichiers à envoyer") '

pour envoyer 1 feuille ou le classeur actif pas de problème. Mais de mon classeur actif lister un dossier, récupérer le nom des fichier qu'il contient et les joindres au Mail (outlook) je ne trouve pas.


Sub envoi()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

'' faire une boucle dans le dossier "MonDossier"
'' récupérer le nom des fichiers preésents
'' MesFichiers= le résultat de la recherche

On Error Resume Next
With OutMail
.To = "tralala@gmail.com" ' Destinataire
.CC = "" ' Copie
.BCC = ""
.Subject = "tralala"
.Body = "en pièce jointe mes copie"
.Attachments.Add ("MesFichiers") ' pour ajouter les fichiers du dossier "MonDossier"
.Display 'ou utiliser .Send
'.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Merci