IMessage CreateMHTMLBody的用法

发现这个网页保存不下来 有时间帮忙 看看 谢谢了！
 http://www.cnblogs.com/DKSoft/archive/2008/10/20/1315297.html CreateMHTMLBody停止 不执行 了，不知道怎么回事
chinahuyong兄 有时间帮忙看看 
function HtmlSaveAsMHT(URL:string;FilePath:string;FileName:string):Integer;
var
  msg:IMessage;
  conf:IConfiguration;
  stream:_Stream;
  TempFileName,Ext: string;
  TempFilePath: string;
begin
  msg := CoMessage.Create;
  conf := CoConfiguration.Create;
  try
    try
      msg.Configuration :=conf;      msg.CreateMHTMLBody(URL,cdoSuppressNone,'','');  //停止在这里就不往下执行了
      //stream.Charset :='gb2312';
      stream := msg.GetStream;
      stream.SaveToFile(NormFileName(FilePath,FileName),adSaveCreateOverWrite);
      Result:=1;
    except
      try //第一次出错，再尝试第二次保存
        msg.CreateMHTMLBody(URL,cdoSuppressAll, '', '');  //cdoSuppressAll, 则图片,声音,样式等内容就不被保存到mht文件中.
        msg.GetStream.SaveToFile(NormFileName(FilePath,FileName),adSaveCreateOverWrite);
        Result:=1;
      except
        SendErrToMemo('下载文件失败！ URL:' + URL);
        WriteLog('下载文件失败！' + TempFileName + '(' + URL + ')', LogFile);
        Result:=0;
      end;
    end;
  finally
    msg := nil;
    conf := nil;
    stream := nil;
    //web := nil;
  end;
end;