XL 2019 Inserer une image dans le corps du message d'outlook

  • Initiateur de la discussion Initiateur de la discussion carlos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

carlos

XLDnaute Impliqué
Bonjour,
Je cherche à mettre une image dans le corps du message d'outlook mais le code en PJ ne marche pas. L'image n'apparait pas.
Merci de m'aider si vous avez une solution à me proposer.
Bonne journée

1719817521057.png
 

Pièces jointes

Solution
Bonjour
pour avoir l'image dans le corps du mail il faut l'envoyer dans le serveur
le src avec le chemin du fichier de fonctionnera jamais
VB:
Sub SendEmail()
    Dim Destinataire_A$, Destinataire_CC$, Objet_mail As Object
    Dim Message$, messagerie As Object, NomPrenom$, Email As Object
    Dim fichier$, CheminPieceJointe$, adremail$, Chemin$, NomImage$

    Chemin ="D:\Mon image.jpg"
    NomImage = Mid(Chemin, InStrRev(Chemin, "\") + 1)


    Message = "<div style='font-family:Calibri Light;font-size:11pt;'>" _
            & "<p>Bonjour Mesdames et messieurs ,</p><br> " _
            & "<img src='" & NomImage & "'" & "width='1200' height='600'><br>" _
            & "<p><B>Départs & Retours:</B></p><br></div>"


    Set messagerie =...
Bonjour
pour avoir l'image dans le corps du mail il faut l'envoyer dans le serveur
le src avec le chemin du fichier de fonctionnera jamais
VB:
Sub SendEmail()
    Dim Destinataire_A$, Destinataire_CC$, Objet_mail As Object
    Dim Message$, messagerie As Object, NomPrenom$, Email As Object
    Dim fichier$, CheminPieceJointe$, adremail$, Chemin$, NomImage$

    Chemin ="D:\Mon image.jpg"
    NomImage = Mid(Chemin, InStrRev(Chemin, "\") + 1)


    Message = "<div style='font-family:Calibri Light;font-size:11pt;'>" _
            & "<p>Bonjour Mesdames et messieurs ,</p><br> " _
            & "<img src='" & NomImage & "'" & "width='1200' height='600'><br>" _
            & "<p><B>Départs & Retours:</B></p><br></div>"


    Set messagerie = CreateObject("Outlook.Application")
    Set Email = messagerie.createitem(0)     '0=Mail, 1=RDV, 2=Contact, 3=Tache, 6=Objet outlook"
    With Email
        .To = "monemail@gmail.com"
        .CC = Destinataire_CC
        .BCC = ""
        .Subject = "test"
        .HTMLBody =  Message 
        .Attachments.Add Chemin     'on envoie  l'image
        '.Attachments.Add Chemin     'on l'envoie une seconde fois si on la veux aussi en piece jointe
       
        'ajout eventuel d'une autre piece jointe
        '.Attachments.Add CheminPieceJointe ' Ajoutez la pièce jointe au mail

        .Display
        ' .Send

    End With
    Set Email = Nothing
    Set messagerie = Nothing
    Application.ScreenUpdating = True

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
334
Réponses
16
Affichages
1 K
Retour