Intégrer image URL dans un mail

**Diesel1405** · 21/12/2019, 18h42

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 :

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
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

**ProgElecT** · 30/12/2019, 16h47

Salut

Non vérifié, mais cdoit être un truc du genre

Code :

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

1
2
3
  .TextBody = "Coucou JULIE"
  .HtmlBody  = "<img src='ICI TON URL' />"
  .Send

Édit:
Peut être que la vraie syntaxe est:

Code :

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

  .HtmlBody  = "<html><body><img src='ICI TON URL' /></body></html>"

**Diesel1405** · 31/12/2019, 00h17

merci pour cette réponse, le problème est résolu !

Intégrer image URL dans un mail

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager