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

[carlos]

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

 

[Phil69970]

Bonjour @carlos

Et si tu répondais déjà au fil précédent !!!

 

[patricktoulon]

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

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

 

[carlos]

Bonjour patrickroulon,
Merci pour cette proposition mais je voulais avoir l'image dans le corps du message et non en PJ car cette image sera en bas du message.

 

[carlos]

Bonjour @carlos

Et si tu répondais déjà au fil précédent !!!

Bonjour Phil69970,
C'est fait.
Bonne journée

 

[carlos]

Voici ce que j'obtiens:

 

[carlos]

Le carré de l'image apparait bien mais l'image n'est pas dedans.
Faut il activer une reference ?

 

[patricktoulon]

re
non puisque on est en late binding donc pas de ref à activer
demo chez moi du résultat dans outlook

alors Attention les noms des images ne doivent pas contenir d'espace et des caractères spéciaux en même temps

 

[carlos]

Belles étoiles...
J'y ai cru un instant car mon image avait effectivement un espace dans le nom..... mais NON toujours pareil. trop déçu. Et pas de caractères spéciaux non plus. Je ne comprends pas.

 

[patricktoulon]

re
donne moi ton image pour que je teste

 

[carlos]

Apres plusieurs tentatives infructueuses, ton code s'est finalement exprimé.
Super ca marche .
Bravo et merci beauxoup patricktoulon

 

[patricktoulon]