How can I read a Outlook .MSG file with VBScript?

From: news.microsoft.com (someone_at_microsoft.com)
Date: 10/26/04


Date: Tue, 26 Oct 2004 15:12:15 -0400

Hi all!

How can I read a .MSG file with vbscript? Ideally, I'd like to search for a
string in the text. The following code:

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Documents and
Settings\itpes\Desktop\emails\RE account # 74919D.msg", ForReading)

Do Until objFile.AtEndOfStream
      Redim Preserve arrEmailLines(i)

 arrEmailLines(i) = objFile.ReadLine

 WScript.Echo "Line " & i & " " & arrEmailLines(i)

       WScript.Echo InStr( "http", arrEmailLines(i) )
 WScript.Echo "-------------------------------------------------"

 i = i + 1 'Increase the counter

Loop

'Close the file
objFile.Close

Won't find HTTP in the .MSG file... Any ideas will ge greatly appreicated.

Thanks

Paul