Insérer une image dans un mail
Bonjour,
J'utilise le code suivant pour envoyer un mail aux membres du club lors de leur anniversaire et cela fonctionne bien:
Private Sub Workbook_Open()
If Date = Range("V1").Value Then Range("V4:V59").ClearContents
Dim OutApp As Object
Dim OutMail As Object
If Mid(ThisWorkbook.Sheets("Membres").Range("L4").Value, 1, 5) = Mid(Date, 1, 5) Then
'MsgBox ("OK")
End If
derl = Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To derl
If (Mid(ThisWorkbook.Sheets("Membres").Range("L" & i).Value, 1, 5) = Mid(Date, 1, 5)) _
And (ThisWorkbook.Sheets("Membres").Range("V" & i) <> "1") Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ThisWorkbook.Sheets("Membres").Range("F" & i).Value
.Subject = "Joyeux Anniversaire de la part de L'aéro Club"
.Body = "Bonjour, " & ThisWorkbook.Sheets("Membres").Range("B" & i).Value & Chr$(13) & Chr$(10) & Chr(13) & _
"Permettez moi de vous souhaiter un joyeux anniversaire et une excellente journée" & Chr(13) & _
"de la part de : L'Aéro Club " & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & _
"**[Ce message a été généré automatiquement]**"
Set .SendUsingAccount = .Session.Accounts.Item("bjc@aero.fr")
.Send
End With
Range("V" & i).Value = 1
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
Next i
End SubJe voudrais savoir si il est possible d’insérer une image lors de l'envoi du mail (logo du club), cette image s’appelle "logo.png" et se trouve dans le dossier :
"C:\Users\J-C\Desktop\CLUB\Photos"
Merci à vous tous et bonne journée
C
Bonjour bayard,
Il faut passer en HTML et donc remplacer la propriété ".Body" par ".HTMLBody" comme suit :
.HTMLBody = "<body>Bonjour, " & ThisWorkbook.Sheets("Membres").Range("B" & i).Value & "<br><br>" & _
"Permettez moi de vous souhaiter un joyeux anniversaire et une excellente journée<br>" & _
"de la part de : L'Aéro Club<br>" & _
"<img src='C:\Users\J-C\Desktop\CLUB\Photos\logo.png'/><br><br><br><br><br><br><br><br><br>" & _
"**[Ce message a été généré automatiquement]**</body>"Cdlt,
Cylfo
Bonjour Cylfo,
ça marche comme je l'espérais et je t'en remercie!
Bonne journée