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

**arnold95** · 05/11/2013, 12h13

Bonjour,

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

Code :

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

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.

**parmi** · 06/11/2013, 16h24

Bonjour,

Essaie comme ceci

Code :

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

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

**arnold95** · 06/11/2013, 18h40

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

**parmi** · 06/11/2013, 18h55

Pour joindre un fichier

Code :

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

.Attachments.Add "Chemin et nom du fichier"

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

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

Macros et VBA Excel

Discussions similaires

Partager

Partager