tontonjoey
XLDnaute Nouveau
Bonjour,
Je recherche comment envoyer plusieures pièces jointes avec un mail
Avec le code suivant j'arrive à en envoyer une, mais comment envoyer tous les fichiers xlsx du répertoire en cours????
Dt = ActiveWorkbook.Sheets("Feuil1").Range("B21")
corps = "Bonjour," _
& Chr(10) & "" _
& Chr(10) & "Veuillez trouver ci joint les états de présence du" & " " & Dt & "." _
& Chr(10) & "" _
& Chr(10) & "Cordialement" _
& Chr(10) & "" _
& Chr(10) & "L'Equipe RH" & Chr(10) & Chr(10)
sujet = "Etats de présence du" & " " & Dt
Set MonMessag = CreateObject("Outlook.Application")
Set Monenvoi = MonMessag.CreateItem(0)
With Monenvoi
.To = test@moi.fr
.Subject = sujet
.Body = corps
.Attachments.Add (tous les fichiers excel du répertoire en cours)
.Display
End With
Je recherche comment envoyer plusieures pièces jointes avec un mail
Avec le code suivant j'arrive à en envoyer une, mais comment envoyer tous les fichiers xlsx du répertoire en cours????
Dt = ActiveWorkbook.Sheets("Feuil1").Range("B21")
corps = "Bonjour," _
& Chr(10) & "" _
& Chr(10) & "Veuillez trouver ci joint les états de présence du" & " " & Dt & "." _
& Chr(10) & "" _
& Chr(10) & "Cordialement" _
& Chr(10) & "" _
& Chr(10) & "L'Equipe RH" & Chr(10) & Chr(10)
sujet = "Etats de présence du" & " " & Dt
Set MonMessag = CreateObject("Outlook.Application")
Set Monenvoi = MonMessag.CreateItem(0)
With Monenvoi
.To = test@moi.fr
.Subject = sujet
.Body = corps
.Attachments.Add (tous les fichiers excel du répertoire en cours)
.Display
End With