VBA fichier excel actif en PJ
Bonjour,
J'ai crée l'envoi d'un mail en vba à partir d'un fichier excel.
Je souhaiterai y mettre ce fichier en pièce-jointe.
Voici mon code :
Private Sub CommandButton1_Click()
Dim LeMail As Variant
Set LeMail = CreateObject("outlook.Application") 'crétion d'un objet Outlook
With LeMail.CreateItem(olMailItem)
.Subject = "Compte rendu d'opération du"
.To = Range("B96")
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ "
.Display
End With
End Sub
Que dois-je ajouter pour y insérer ce fichier car mes essais sont infructueux !!
Merci pour votre aide.
J'ai crée l'envoi d'un mail en vba à partir d'un fichier excel.
Je souhaiterai y mettre ce fichier en pièce-jointe.
Voici mon code :
Private Sub CommandButton1_Click()
Dim LeMail As Variant
Set LeMail = CreateObject("outlook.Application") 'crétion d'un objet Outlook
With LeMail.CreateItem(olMailItem)
.Subject = "Compte rendu d'opération du"
.To = Range("B96")
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ "
.Display
End With
End Sub
Que dois-je ajouter pour y insérer ce fichier car mes essais sont infructueux !!
Merci pour votre aide.
2 réponses
-
Merci pour votre aide .
C'est ce qu'il me fallait. -
Bonjour,
il faut ajouter :.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ " .attachments.Add "le chemin du fichier" .Display
-
-
@m@rinaJe ne connaissais pas cette procédure, merci M@rina :-)
-
-
