Microsoft 365 Ajouter un texte dans le corps du Mail

[eric72]

Bonjour,
Après multiples recherches j'ai trouvé ce code pour envoyer une feuille par mail:

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = 'Destinataire1@domaine.fr'
Destinataires(2) = 'Destinataire2@domaine.fr'
Destinataires(3) = 'Destinataire3@domaine.fr'
Sujet = 'Objet éventuel de l'envoi'
AccuseReception = True
ThisWorkbook.Sheets('taPage').Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.close false
End Sub
Ce qui fonctionne bien mais j'aimerais ajouter un texte du genre:
Bonjour,
Veuillez trouver ci-joint etc.... etc.....
comment dois je procéder (si quelqu'un a une idée)
Merci beaucoup pour votre aide.
Eric

 

[dg62]

Bonsoir Eric72

La méthode Sendmail n'accepte pas d'argument type Body. Je pense qu'il faut passer par une autre méthode, à travers Outlook par exemple.

 

[eric72]

Bonsoir,
Donc je pouvais toujours chercher !!!
Merci beaucoup