mht生成

Microsoft CDO for Windows 2000 Library (C:\WINDOWS\System32\cdosys.dll)

  Dim msg As New CDO.Message
        Dim cfg As New CDO.Configuration

        msg.Configuration = cfg
        msg.CreateMHTMLBody("http://xxx", CDO.CdoMHTMLFlags.cdoSuppressAll, "", "")
        msg.GetStream().SaveToFile("c:\b.mht", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
        cfg = Nothing
        msg = Nothing

        MsgBox("OK")
posted @ 2011-07-11 00:25  大力  阅读(1483)  评论(7)  编辑  收藏  举报