J'aimerais envoyer une feuille de classeur excel en tant que corps du message et PAS en pièce jointe en exécutant une macro

sub mail_par_vba()
 
 'RAJOUTER UNE REFERENCE AU CONTROLE MAPI
 
 Dim myMessage As New MAPIMessages
 Dim mySession As New MAPISession
 
 mySession.UserName = "Hamard Stephane"
 mySession.Password = "ZazaAsLesYeuxVertsSelonJ@C"
 mySession.SignOn
 myMessage.SessionID = mySession.SessionID
 
 
 myMessage.Compose
 myMessage.RecipAddress = "shamard@totoworld.fr"
 myMessage.Msgsubject = "Resultat " & Format(Date, "dd/mm/yy")
 myMessage.MsgNoteText = "Salut Zaza"
 myMessage.AttachmentType = 0
 myMessage.AttachmentName = "Fichier test"
 myMessage.AttachmentPathName = "C:\perso\	emp\	est.txt"
 myMessage.ResolveName
 
 On Error Resume Next
 'Je n'arrive pas à intercepter la fermeture de la fenêtre...
 'donc j'utilise la gestion d'erreur (pas très bon).
 myMessage.Send True
 
 mySession.SignOff
 end sub