Autres MACRO POUR ENVOYER UN EMAIL

[Skadi]

Salut chers membres,

Svp j'ai besoin de vos, j'ai écrit une macro (qui fonctionne bien) qui me permet de remplir un model Word à partir d'un classeur . Mon soucis est que je veux envoyer par mail MON WORD après le remplissage et veux que le corps du mail soit mon Word est non une pièce jointe .
Voici mon code , Si quelqu'un peut m'orienter, merci

Public Sub SendMonEmail()


  Dim User As String
  Dim Mail As String
  Dim Fonct As String
      
  
    Dim Chemin As String
    Dim ObjWord As Word.Application
    Dim LeDocWord As Word.Document

    On Error Resume Next

   Chemin = "C:\Users\Saugvegarde\Document1.docm"
  
  
   Set ObjWord = CreateObject("Word.Application")
   ObjWord.Visible = True

    Set LeDocWord = ObjWord.Documents.Open(Chemin)
    
        l = ActiveCell.Row
        C = ActiveCell.Column
         Worksheets("Feuil1").Activate
        
        
        prenom = Range("D" & l).Value
      
        User = InputBox("Saisir le Usermane ?", "Titre")
        
        Mail = InputBox("Saisir le mail ?", "Titre")
    
        Fonct = InputBox("Saisir la Fonction ?", "Titre")



With LeDocWord
'pour remplir les signets dans mon word
.Bookmarks("Prenom").Range.Text = prenom
.Bookmarks("Username").Range.Text = User
.Bookmarks("Email").Range.Text = Mail
.Bookmarks("Fonction").Range.Text = Fonct

.ActiveDocument.SaveAs2 "C:\Users\Saugvegarde\Document1.docm" & Format(Date, "dd-mm-yyyy") & ".doc"
.ActiveDocument.Close
.Quit
'.SendMail

End With

Set ObjWord = Nothing

End Sub