用CDO保存网页到MHT文件

最新推荐文章于 2021-06-16 19:13:57 发布

迈克揉索芙特

最新推荐文章于 2021-06-16 19:13:57 发布

阅读量2.5k

点赞数

分类专栏： Visual Basic 6.0 文章标签： microsoft function library string url windows

本文链接：https://blog.youkuaiyun.com/Modest/article/details/696578

版权

Visual Basic 6.0 专栏收录该内容

35 篇文章

订阅专栏

本文介绍了一种使用Microsoft CDO 和 ActiveX Data Objects库将网页保存为MHT格式的方法。通过提供的VBScript代码示例，可以实现从指定URL抓取页面并将其转换成MHT文件的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(声明：魏滔序原创，转贴请注明出处。)
引用：Microsoft CDO For Windows 2000 Library 和 Microsoft ActiveX Data Objects 2.x Library

代码：
Private Function SavePageToMHT(ByVal URL As String, ByVal FileName As String) As Boolean
    Dim objMsg As New CDO.Message
    Dim objStream As ADODB.Stream

    On Error GoTo Err:
    objMsg.CreateMHTMLBody URL, , "domain/username", "password"
    Set objStream = objMsg.GetStream
    objStream.SaveToFile FileName, adSaveCreateOverWrite
    SavePageToMHT = True
    Exit Function
Err:
    MsgBox Err.Description
End Function

使用方法：
SavePageToMHT "http://www.chenoe.com", "C:/Home.mht"

注意：在URL中必须指定协议，比如上面的http。