Discussion :

[cemyr]

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?

[young 25]

Bonsoir;

voici quelque chose qui peux peu être d'aider

A+

Code :

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

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

[cemyr]

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 :

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

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
...