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

[Fermé]
Signaler
-
Messages postés
7572
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2021
-
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

1 réponse

Messages postés
7572
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 octobre 2021
664
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à