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

Vdlz -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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

A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
bonjour,

Je présume que la capture d'écran est une shape!

Tu cliques sur l'image, tu verras son nom au dessus du A de la colonne A.

Donc il va falloir la rendre invisible comme ceci: 

ActiveSheet.Shapes("Image 2").Visible = False 'adapter nom de la shape


a mettre avant d'envoyer le mail, ensuite pour rétablir a la fin de ta macro: 

ActiveSheet.Shapes("Image 2").Visible = True 'adapter nom de la shape


Voilà

0