Un code VBA pour pourvoir rajouter un contenu a mon mail

Bonjour a tous,

Est il possible de rajouter un code ci dessous pour pourvoir ajouter un contenu a mon mail ?. Merci

Sub EnvoiPage()
Dim Destinataires(1) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "testing@test.com"
Sujet = "Facture pour le mois en cours"
AccuseReception = True
ThisWorkbook.Sheets("factures").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

exemple Contenu :Bonjour,

Ci- joint le tableau.............

[s=fs-1.1][s=fs-0.9][/s][/s] Cordialement,

Bonjour,

En regardant rapidement la méthode utilisée, je crains qu'il n'y ait pas de solution simple à ce problème.

Sinon, vous pouvez vous inspirer de cette façon de faire pour envoyer un mail de façon "classique" :

https://forum.excel-pratique.com/astuces/vba-excel-outlook-envoi-mail-29003

Cdlt,