在delphi中如何使用cdo,因为我的一句" Msg.CreateMHTMLBody(URL, cdoSuppressNone, '', '');"老是提示"语法无效"

Question

(null)

Answer 1

//转个代码
//调试的环境是Win2000+Delphi6
//调试的代码如下
uses ComObj;function 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;procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Memo1.Text := MhtText('file:\\C:\temp\temp.htm');
end;不清楚自己上网查查看
http://search.csdn.net/Expert/topic/1661/1661415.xml?temp=.6185419

Answer 2

To: Kshape_zh
我开始是在winxp+d7调试的，就出上面的错误,我后来照你的提示在winme+d6上试，提示“vCDOMessage := CreateOleObject('CDO.Message');"这句"类字符串无效",是不是要安装
什么activex？