envoyer le contenu d'un dossier par mail outlook

[jtitin]

Bonjour à tous
est il possible d'envoyer par mail outlook la contenu d'un dossier avec vba excel
j'ai trouvé pour envoyer 1 feuille du classeur actif ou le classeur lui même.
mais mon classeur actif sert à créer des copie ,puis enregistrer ces copie dans un dossier.
c'est le contenu de ce dossier que je voudrait envoyer.
exemple: mon dossier s'appelle "MesFichiers" et contient 2 fichiers ".xlsm" je ne connait pas le nom il varie en fonction d'une date
donc envoyer ces 2 fichiers dont je ne connais pas le nom

Merci

 

[PrinceCorwin]

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

 

[jtitin]

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