Envoi de mail sans capture d'écran dans le corps du message

Bonjour,

J'ai écrit un code qui me permet d'envoyer un mail avec le classeur en pièce jointe. Malheureusement je suis débutant en programmation (d'ailleurs désolé si le code est moche ^^) et même si le mail s'envoie à la perfection, dans le corps du message il y a comme contenu une capture d'écran de ma feuille1. Or je voudrais qu'elle n'apparaisse pas. Pourriez-vous me donner un coup de main s'il-vous-plaît? D'avance, merci.

        Const Chemin As String = "C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE" 'constante qui contient le chemin d'accès du fichier outlook. A changer en fonction du chemin

On Error Resume Next
        Set Appli = GetObject(, "Outlook.Application")
 
        If Appli Is Nothing Then
            
            SessionOutlook = Shell(Chemin, 1)
        
        End If
        ActiveWorkbook.EnvelopeVisible = False
      
        With MailEnvelope
         
             .Introduction = "bonjour , voici une nouvelle remontée de situation dangereuse" 'texte à écrire dans le mail
             .Item.To = "***@***" 'mettre adresse Michael
             .Item.Subject = "remontée sd" 'sujet du mail
             .Item.Attachments.Add ActiveWorkbook.Path & "\" & batiment + " " + nom & ".xlsm"
             .Item.OriginatorDeliveryReportRequested = True 'demande une confirmation d'envoi
             .Item.Send 'envoi du mail
        
        End With

End Sub