Envoie une page en pièce jointe

[Ludovic]

Bonsoir le forum,

J'ai trouvé ce code de myDearFreind pour envoyer un document à plusieurs destinataires
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
mais il n'y a pas de message. Comment en créer un du style
Msg = 'mon_message', et surtout comment l'insérer ds le code. J'ai essayé : Body = Msg, mais cela ne marche pas étant donné que sendmail n'a que 3 arguments. Pouvez vous m'aider, please.

A bientôt
Ludovic