Read data from the email body

[Eric]

I wrote a program which read emails from a textfile. I save these
emails from inbox. I need hlep how to i read the body of an email from
a text file.

Dim fso, fil, ts, sContents
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fil = fso.getfile(server.mappath("myemails.txt"))
Set ts = fil.openastextstream(1)
sContents = ts.readall
response.write("From")
sPattern = "From\:\s*([\s\S]+?)[\r\n]+"
Dim rx
Set rx = New RegExp
rx.Global = True
rx.IgnoreCase = True
rx.MultiLine = True
rx.Pattern = sPattern
Set mc = rx.Execute(sContents)
For Each rm In mc
sFrom = rm.SubMatches(0)
response.write("<br>")
response.write(sFrom)
Next

 

[Guest]

Eric,

just curious to know. if you wrote the program to save the emails from inbox
to text files, why not try using xml instead of text files?

Regards,
Augustin