[VBS & CDO] Envois de mail format HTML
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:
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 |
