生成MHT文件的程序如下:
       Dim message As New CDO.Message
        Dim Outstream As ADODB.Stream
        message.CreateMHTMLBody("http://www.qq.com", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
        Outstream = message.GetStream
        Outstream.SaveToFile("d:\test.mht", ADODB.SaveOptionsEnum.adSaveCreateNotExist)
        MsgBox("完成")
        Outstream.Close()
        message = Nothing
提示没有注册接口,但是下载http://www.csdn.net就没问题,请高手指点迷津