Mail via batch ( fichier VBS )

Bonjour,

en ce moment je possède un script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set objEmail = CreateObject("CDO.Message") objEmail.From = "monmail@mondomaine.fr" objEmail.To = "tonmail@mondomaine.fr" objEmail.Subject = "Sujet" objEmail.Textbody = "Corps du message" objEmail.AddAttachment "C:\fichier.txt" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "ServeurMail" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send

---

Ce script permet d'envoyer un fichier "fichier.txt" en piece jointe. cependant je souhaiterai savoir s'il est possible de mettre le contenu de fichier.txt dans une variable et apres envoye le contenu dans le corps du message. Y a t il une solution à cela ?
Je vous remercie
Cordialement
Kilian

Salut,

il faut que tu ouvres le fichier texte avec :

Code:

---

OpenTextFile

---

L'exemple suivant te montre comment afficher dans une dialog le contenu du fichier :

Code:

---

1 2 3 4 5 6 7 8 9

OpenTextFileTest Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\\test.txt", 1) MsgBox(f.ReadAll()) f.Close End Sub

---

Donc après il faut que tu récupères le texte dans une variable que tu passes à TextBody.

Karl.

Ok je te remercie pour ton aide, je pense que ce code va bien aider
Merci bcp
Kilian