Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Intégrer image URL dans un mail


Sujet :

VB 6 et antérieur

  1. #1
    Futur Membre du Club
    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 :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

  2. #2
    Rédacteur/Modérateur

    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>"
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Futur Membre du Club
    merci pour cette réponse, le problème est résolu !

###raw>template_hook.ano_emploi###