how to load message in MEMail object

[bhavin]

Hi
I'm reading mail using below function

Function LoadMessageFromFile(Path) 'As Message
Dim Stm
Set Stm = CreateObject("ADODB.Stream")
Stm.Charset = "ascii"
Stm.Open
Stm.LoadFromFile Path
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iDsrc
Set iDsrc = iMsg.GetInterface("IDataSource")
iDsrc.OpenObject Stm, "_Stream"
Set LoadMessageFromFile = iMsg
End Function

Using this I can use only CDO message properties.
How can I use MEMail object instead of CDO Message.

Thanx