Discussion :

[nonotoubo]

Bonjour a tous,

je cherche a envoyer un rapport généré automatiquement tous les matins grace a des script vbs par mail. Le rapport est bien mis en page dans une page HTML, je n'ai plus qu'a l'envoyé via smtp. L'envoi du mail fonctionne mais je n'arrive pas a envoyé le mail directement au format HTML. En effet, en donnant directement le chemin d'une page html a mon HTMLBody mais cela me revoit le nom du chemin et pas le contenu de la page web. Comment faire alors si on veu envoyé le contenu d'un page .htm dans le corps d'un mail? Dois je ouvrir le fichier, et en lire chaque ligne avec un boucle For?
Merci pour votre aide et bonne fin de journée.

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
22
 
 
message = "d:\exploit\synthese.htm"
 
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Reporting : Etat du parc"
objMessage.From = "Supervisor"
objMessage.To = "XXX@XXX"
objMessage.HTMLBody = message
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp4.XXX.fr"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
objMessage.Configuration.Fields.Update
 
objMessage.Send

[pc75]

Bonjour,

Au lieu de mettre :

message = "d:\exploit\synthese.htm"
objMessage.HTMLBody = message

Essaie ça :

Code :

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

1
2
3
 
message = "d:\exploit\synthese.htm"
objMessage.CreateMHTMLBody "file://" & message

[nonotoubo]

C'est parfait ça fonctionne.
Merci pc75 et bonne soirée a tous !
JcL