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.