Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ajouter un texte dans le corps du Mail

eric72

XLDnaute Accro
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…