[VBA Outlook] Message avec image

**daniel_gre** · 10/02/2009, 10h41

Bonjour,

lorsque j'avais Office 2003 je pouvais sans probleme en VBA integrer une image au corps HTML de mon message. Le script decrit @ http://www.outlookcode.com/d/code/htmlimg.htm fonctionnait parfaitement.

aujourd'hui avec Office 2007, je me retrouve avec l'image en attachement et bien sur son emplacement vide dans le corps de mon message !!??

peut-etre que les constantes ont change !!??

So, quelqu'un a t'il une idee du probleme ou une autre solution ?

par avance merci,

Daniel.

**Thierry_94** · 10/02/2009, 21h39

Bonjour,

En Excel 2003 et 2007 j'ajoute une image dans un mail en ajoutant le le fichier dans les fichiers joints du mail et en intégrant le code HTML suivant dans la partie Body :

Code :

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

<img src='cid:xxxxxx.xxx'>

ou xxxx.xx = le nom du fichier

Par contre les image ne sont réellement visibles dans le mail qu'après avoir envoyé et reçu le mail.

J'espère que cela vous aidera ...
Thierry

**Oliv-** · 11/02/2009, 13h41

Bonjour,
Voici un exemple à tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub new_mail_with_embedded()
Set objOL = Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
    objMail.Attachments.add "z:\ATT666206.gif"
     objMail.Attachments.add ("z:\madonna.bmp")
    objMail.HTMLBody = "<html><p>This is a picture.</p>" & _
                   "<img src='cid:ATT666206.gif' ><img src='cid:madonna.bmp' >"
    objMail.Display
    Set objMail = Nothing
End Sub

[VBA Outlook] Message avec image

VBA Outlook

Discussions similaires

Partager

Partager