Discussion :

[kilian]

Bonjour,

en ce moment je possède un script :

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
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

[karl3i]

Salut,

il faut que tu ouvres le fichier texte avec :

Code :

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

OpenTextFile

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

Code :

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

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.

[kilian]

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