VBScript avec CreateMHTMLBody

Version imprimable

22/12/2010, 00h12
boboss76

VBScript avec CreateMHTMLBody

Bonsoir

J'ai écrit un script qui permet d'envoyer un mail via un serveur smtp.

Dans ce mail, je voudrais insérer une image contenue sur mon disque dur en lui indiquant le chemin.
Je pensais utiliser la fonction

Code:

objMessage.CreateMHTMLBody " <img SRC ="file:///C|/Program Files...>"

Mais j'ai une erreur.

Merci de votre aide:cry:
22/12/2010, 09h34
hackoofr

Citation:

Envoyé par boboss76

Bonsoir
J'ai écrit un script qui permet d'envoyer un mail via un serveur smtp.
Dans ce mail, je voudrais insérer une image contenue sur mon disque dur en lui indiquant le chemin.
Je pensais utiliser la fonction
objMessage.CreateMHTMLBody " <img SRC ="file:///C|/Program Files...>"
Mais j'ai une erreur.
Merci de votre aide:cry:

Salut,;)
Pouvez-vous faire un copier/coller de votre code ici en supprimant bien sûr vos informations personnelles :lol:
Un Conseil : Je crois il serai mieux de faire uploader votre image sur un serveur d'hébergement d'image puis l'incorporer sous cette forme

Code:

<img src=http://serveurimage/Monimage.jpg>

Merci de ton aide hackoofr

Voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
sub main()
Const cdoSendUsingPickup = 1  
Const cdoSendUsingPort = 2 
 
Const cdoAnonymous = 0 
Const cdoBasic = 1 
Const cdoNTLM = 2 
 
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Exemple de Message" 
objMessage.From = """La maison communicante"" <xxxxxx@free.fr>" 
objMessage.To = "xxxxxx.xxxxl@wanadoo.fr" 
objMessage.TextBody = "Ceci est un exemple de texte.." & vbCRLF & "Il est envoyé par un serveur SMTP."
 
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxxx.fr"
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx.xxxxx"
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
 
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
objMessage.Configuration.Fields.Update
 
'==End remote SMTP server configuration section==
 'The line below shows how to send using HTML included directly in your script
ds_icon="\temperature.gif" 
objMessage.HTMLBody = "<img src='" & ds_icon & "' align=absmiddle>" 
 
 
 
objMessage.Send
 
 
end sub

Voilà le message part et arrive sans problème mais sans l'image.

Merci de votre aide
Cordialement
Boboss76:roll:

un message en HTML envoyé par hackoo

Salut ;)
Bon j'ai modifier un peu ton script et je l'ai tester avec mon serveur smtp et il marche à merveille chez moi, même sans login et mot de passe et avec pièce-jointe comme Bonus :lol: et j'espère qu'il va marcher pour toi aussi et il doit afficher cette image dans ton mail :ccool:
http://photomaniak.com/upload/out.ph...64_IDNlogo.gif
Donc les lignes à modifier sont bien sûr :

Code:

objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici

Code:

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"

Code:

ds_icon="c:\1.jpg" 'Tu dois changer le chemin de ton image si tu veux l'envoyer par piéce-jointe

Voici le code à tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
sub main()
Dim messageHTML
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Exemple de Message" 
objMessage.From = """La maison communicante"" <Bill.Gates@gmail.com>" 'ici on s'en fou tu peux mettre n'importe quel mail même s'il n'existe pas (^_^)
objMessage.To = "xxxxx@gmail.com" 'Email du destinataire doit-être correct ici
objMessage.TextBody = "Ceci est un exemple de texte.." & vbCRLF & "Il est envoyé par un serveur SMTP."
ds_icon="c:\1.jpg"  'Tu dois changer le chemin de ton image si tu veux l'envoyer par piéce-jointe
messageHTML="Ceci est un message en HTML envoyé par hackoo"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update
'Ajout d'un message en HTML en affichant une image hébergé dans un serveur distant
objMessage.HTMLBody="<center><font size=4 FACE=Tahoma Color=red>"&messageHTML&"<br><br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>"
objMessage.AddAttachment(ds_icon) 'On peut ajouter aussi une image ou un fichier dans la piéce-jointe
objMessage.Send
 
	If Err.Number <>0 Then
			MsgBox Err.Description,16,"Erreur"
			msgbox "le mail n'a pas pu être envoyé !",16,"Information"
		Else
		msgbox "Le mail a été bien envoyé !",64,"Information"
	End If
		On Error GoTo 0 
 end sub
Call main

02/02/2011, 00h00
hackoofr

Citation:

Envoyé par boboss76

Bonsoir
J'ai écrit un script qui permet d'envoyer un mail via un serveur smtp.
Dans ce mail, je voudrais insérer une image contenue sur mon disque dur en lui indiquant le chemin.
Je pensais utiliser la fonction

Code:

objMessage.CreateMHTMLBody " <img SRC ="file:///C|/Program Files...>"

Mais j'ai une erreur.
Merci de votre aide:cry:

Salut ;) je crois tu dois changer un chemin plus simple sans espace et éviter le chemin de Program Files qui contient un espace et incorporer l'image dans un fichier HTML "test.htm" qui se trouve dans le dossier c:\temp par exemple et l'appeler par cette syntaxe :

Code:

objMessage.CreateMHTMLBody "file://c|/temp/test.htm"