Envoyer un mail par OUTLOOK 2013 avec une image dans le corps de texte

**jlr78fr** · 25/01/2018, 12h21

Bonjour,

En recopiant des bouts de code à gauche et droite, j'ai réussi à coder une macro sous EXCEL qui envoie des mails avec des pièces jointes. J'aimerais ajouter une image dans le corps de texte mais je suis perdu...

J'ai trouvé la syntaxe ci-dessous, mais le corps de texte du mail reçu contient seulement une croix rouge encadrée.

:

Nom : image.jpg
Affichages : 1008
Taille : 1,9 Ko

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
OutMail.HTMLBody =  "<BODY><br><br><IMG src=cid:image></BODY>"

la variable "image" contient "C:\user\image.gif"

Merci pour votre aide

jlr

**halaster08** · 25/01/2018, 13h36

Bonjour,

Tout ce qui est entre "" est considéré par VBA comme du texte, donc ici:"<BODY><br><br><IMG src=cid:image></BODY>" ta variable est ignorée et donc Outlook ne trouve pas l'image.

essaye comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
image = "D:\image\picto.bmp"
OutMail.HTMLBody = "<BODY><br><br><IMG src=" & image & "></BODY>"
OutMail.display

**jlr78fr** · 25/01/2018, 14h09

Bonjour halaster08,

Merci beaucoup pour ta réponse !
J'ai mis ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
image = cheminImage & " \ " & imageTest
OutMail.HTMLBody "<BODY><br><br><IMG src=" & image & "></BODY>"
OutMail.display

Avec la bonne syntaxe (ajout des doubles quotes pour la variable "image"), j'ai la même croix rouge.

Par rapport à ce que j'avais écrit, à quoi sert "cid" dans la commande "<IMG src=cid:" ?

En ajoutant ".display", la croix rouge disparait, mais il n'y a rien à la place

A quoi sert cette commande ?

Merci !
jlr

**halaster08** · 25/01/2018, 14h58

Envoyé par jlr78fr

Par rapport à ce que j'avais écrit, à quoi sert "cid" dans la commande "<IMG src=cid:" ?

Aucune idée, c'est pour ça que je l'ai viré (je n'ai aucune notion de html)

En ajoutant ".display", la croix rouge disparait, mais il n'y a rien à la place

A quoi sert cette commande ?

.display c'est pour afficher ton couriel

Chez moi le code proposé fonctionne avec le chemin vers une image qui existe bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image = cheminImage & " \ " & imageTest

Quels sont les valeurs de cheminImage et imageTest au moment de l'erreur?
essaye d'ajouter ceci pour voir si le chemin correspond bien a ce que tu attendais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox cheminImage & " \ " & imageTest

Si tu essaye avec image = "C:\user\image.gif" ça fonctionne ?

**jlr78fr** · 25/01/2018, 16h08

Le problème est que je n'ai aucun message d'erreur.

En fait, la macro va sélectionner des cellules dans une feuille et en faire une image (imageTest="image.gif"= qui est stockée dans le répertoire "cheminImage" (C:\...\...), et c'est cette image que je veux insérer dans le corps du mail.

Si je mets le chemin en dur, j'ai la même chose, c'est à dire rien dans le corps du mail.

Par contre, j'ai remarqué que j'avais écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody "<BODY><br><br><IMG src=" & image & "></BODY>"

avec la variable image typée en "Objects"
En ajoutant un espion sur cette variable, j'ai vu que sa valeur était "nothing". Et un peu plus haut dans le code, j'avais mis en commentaire la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set image = attach.Add(cheminImage & "\" & imageTest)

En dé-commentant cette ligne, ça fonctionne !

Bon par contre, je n'ai pas vraiment compris comment ce code fonctionne .....

En tout cas, merci beaucoup pour ton aide !!

Il existe un bouquin pour apprendre comment faire ce genre de programme mélangeant HTML et VBA ?

jlr

Envoyer un mail par OUTLOOK 2013 avec une image dans le corps de texte

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager