In my quest to get attachments from a .MSG file, I have tried this code:

        Dim loMessage As New CDO.Message
        Dim loStream As New ADODB.Stream

        loStream.Mode = ADODB.ConnectModeEnum.adModeReadWrite
        loStream.Type = ADODB.StreamTypeEnum.adTypeText
        loStream.Open()

        loStream.WriteText(oApp.FileToStr("d:\Test.msg"), ADODB.StreamWriteEnum.adWriteLine)

        loStream.Position = 0

        loMessage.DataSource.OpenObject(loStream, "_Stream")

        MessageBox.Show(loMessage.From)
        MessageBox.Show(loMessage.To)
        MessageBox.Show(loMessage.TextBody)

While this doesn't generate any error, it doesn't recognize the content of the file. Basically, all properties from loMessage return empty.

There has to be a small ajustment that has to be made in this code. I just can't find where it is.

Basically, I create a stream. Then, I use that into loMessage.DataSource.OpenObject() to have it into a CDO.Message. Is there anyone who would see what has to be adjusted?