主题：[求助]将完整的网页保存成.mht文件，格式要如何声明？

Dim Url As String  = "http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43620&authorid=0&page=0&star=2"
Dim FilePath As String = "d:\test.mht"
Dim iMessage = createobject("CDO.Message")



iMessage.CreateMHTMLBody(Url,CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")  
' CreateMHTMLBody第一参数为url,第二参数为支持格式,第三参数为用户ID,第四参数为用户密码
Dim adodbstream As ADODB.Stream = New ADODB.Stream()
adodbstream.Type = ADODB.StreamTypeEnum.adTypeText
adodbstream.Charset = "US-ASCII"
adodbstream.Open()
iMessage.DataSource.SaveToObject(adodbstream, "_Stream")
adodbstream.SaveToFile(FilePath,ADODB.SaveOptionsEnum.adSaveCreateOverWrite)

此主题相关图片如下：qq图片20200224153516.png