用dephi函数把html转化成mht后，出现乱码问题． ( 积分: 100 )

function THtmlEditForm.MhtText(mURL: string): string;
var
vCDOMessage: OleVariant;
begin
vCDOMessage := CreateOleObject('CDO.Message');
vCDOMessage.Configuration := CreateOleObject('CDO.Configuration');
try
vCDOMessage.CreateMHTMLBody(mURL, 0, 'domain/username', 'password');
Result := vCDOMessage.GetStream.ReadText;
except
raise;
end;
end;

Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'Sys/temp.mht');
以上方法生成的mht打开后文字是乱码．兄弟们．懂得帮一下忙啊．MSN:chenhf_128@hotmail.com QQ:41472544

改为EML后打开 BASE64编码了