Intégrer image URL dans un mail
Bonjour,
quelqu'un sait-il comment intégrer dans le "textbody", à la ligne 18 du code, une image hébergé sur internet (lien url) dans un mail envoyé en vb6
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Function mail() As Boolean
Dim oCDO
Set oCDO = CreateObject("CDO.Message")
With oCDO
With .Configuration.Fields ' Configuration "du compte mail SMTP"
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.smtp.com"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx@xxx.com"
.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxxxx"
'----------------
.Update
End With
.From = "xxxxxxx"
.To = "xxxxx@xxxxx"
.TextBody = "Coucou JULIE" + "IMAGE URL"
.Send
End With
End Function |
merci et bonnes fêtes à tous