Macro Envoi Mail auto avec PJ
Bonjour à tous,
Après recherche sur le forum, je n'ai pas trouvé réponse à mon besoin:
Je souhaiterai ajouter du texte dans mon mail automatique avec fichier excel ci-joint, développé avec la macro ci-dessous:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Sub EnvoieFichierJoint()
Dim Dest As String
Dim Sujet As String
Dest = "mmm.zfkzfkz@free.fr"
Sujet = "Liste moteurs lockés"
ActiveWorkbook.SendMail Dest, Sujet, True
End Sub |
Que rajouter pour rajouter un corps de texte?
En vous remerciant par avance pour votre aide.
Cordialement,
Max
