Insertion d'une image dans le corps d'un mail via VBA Excel

Version imprimable

Bonjour,

J'utilise VBA Excel pour envoyer des mails automatiquement du type
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Test() Set objOL = CreateObject("Outlook.Application") Set ObjMail = objOL.CreateItem(olMailItem) file_export = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name With ObjMail .to = Cells(8, 11) .CC = Cells(9, 11) .Subject = Cells(7, 11) & "Test" & Cells(7, 3) .Body = "Bonjour," .Display End With ActiveWorkbook.Close Set ObjMail = Nothing Set objOL = Nothing End Sub
Je souhaiterais insérer une image à la fin du mail soit via un copy paste special soit via une image directement.

Pouvez-vous m'aider?

Merci.

Bonjour,

Essaie comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
    Dim objOL As Object, ObjMail As Object
    Dim oAttach As Object, ColAttach As Object
 
    Set objOL = CreateObject("Outlook.Application")
    Set ObjMail = objOL.CreateItem(0)
    Set ColAttach = ObjMail.attachments
    Set oAttach = ColAttach.Add("C:\Koala.jpg") 'Changer le chemin et le nom de l'image
 
    With ObjMail
        .to = Cells(8, 11)
        .CC = Cells(9, 11)
        .Subject = Cells(7, 11) & "Test" & Cells(7, 3)
        .HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
            "Bonjour, <br><br><IMG src=cid:Koala.jpg></BODY>"   'Nom de l'image sans chemin
        ObjMail.Save
        .Display    'Send   Display permet d'afficher le message, Send l'envoie sans affichage
    End With
 
'    ActiveWorkbook.Close
 
    Set oAttach = Nothing
    Set ColAttach = Nothing
    Set ObjMail = Nothing
    Set objOL = Nothing

06/11/2013, 18h40
arnold95

Merci Parmi, celà marche bien. Mais dans le code initial, je souhaitais aussi insérer un fichier excel, et désormais j'ai un message d'erreur, comment l'ajouter avec ce nouveau code? Seconde chose, je souhaiterais ajouter dans le corps du mail, une valeur présente dans un fichier excel. Comment l'intégrer dans la partie html?

Merci d'avance
06/11/2013, 18h55
parmi

Pour joindre un fichier

Code:

.Attachments.Add "Chemin et nom du fichier"

Pour ajout dans le body, regarde et modifie, là où c'est inscrit Bonjour