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
merci et bonnes fêtes à tous
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
Partager