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.