Sub PMO_ImageMail()
Dim OUT As Outlook.Application
Dim IT As Outlook.MailItem
Dim msg$
Dim img$
Dim A$
Set OUT = CreateObject("Outlook.Application")
Set IT = OUT.CreateItem(olMailItem)
msg$ = "Bonjour"
img$ = "c:\hiver.jpg" 'modifier le chemin de l'image
If msg$ <> "" Then
If img$ = "" Then
A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>"
Else
A$ = "<HTML><BODY>" & msg$
End If
End If
If img$ <> "" Then
If msg$ = "" Then
A$ = A$ & "<br><img src='" & img$ & "'><br>"
Else
A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>"
End If
End If
With IT
.Display
.HTMLBody = A$
.Subject = "essai"
.To = "toto@zaza.fr" 'changer le destinataire
.Send
End With
End Sub