Insérer image dans mail avec vba et outlook

Version imprimable

15/03/2012, 18h06
cemyr

Insérer image dans mail avec vba et outlook

Bonjour,

Je réalise un "publipostage" à l'aide d'un fichier Excel et d'une macro VBA.
Je voudrais tout simplement introduire une image dans mon mail (il s'agit plus précisément d'une bannière qui doit s'afficher parfaitement au début du mail et donc qui ne doit pas être mis en pièce jointe).

Comment faire?

Bonsoir;

voici quelque chose qui peux peu être d'aider

A+

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Envoi_Mail2() 'mail équipe Jaune
Sheets("Feuil1").Select
'picture1.Select
Range("a1:c13").Select
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour," & Chr(10) & Chr(10) & "Coucou" & Chr(10) & Chr(10) & "Salutations" & Chr(10) & "David" & Chr(10) & "A+" & Chr(10) & Chr(10)
    .Item.To = "toto.fr"
    .Item.Subject = "Répartition équipe Jaune"
    .Item.Send
End With
End Sub

Merci, mais en fait j'avais déjà une macro d'envoi qui fonctionnait bien (semblable à celle que tu proposes)... sauf que mon mail ne contenait que du texte. Ma question portait uniquement sur l'insertion d'une image.

Mais j'ai trouvé ce que je cherchais :
A priori il faudrait noter le corps de texte du mail dans un .HTMLBody (je l'avais mis initialement dans un .body)
Code:

1 2 3 4 5 6 ... .HTMLBody = "<img src=D:\...\monImage.jpg>" _ 'insertion de l'image & "<br /><br /><br />" _ 'insertion de sauts à la ligne & "corps de texte" 'insertion du texte ...