Thanks Stephen,

But I have one small problem using "ReadAll" method. The size of the file that has to be read is 4KB and ReadAll does not read entire file into the stream string.

Any other way?

Thanks once again.
Regards

>' Get Message Body
> Set TStream = FSys.OpenTextFile("MyFile.txt", ForReading)
> strBody = TStream.ReadAll