Dim iMsg As New CDO.Message
Dim objStream As ADODB.Stream
With iMsg
.CreateMHTMLBody "http://ckrd134.cnki.net/tpi50/index128.aspx", cdoSuppressAll, "", ""
Set objStream = .GetStream
'objStream.Charset = "gb2312"
'objStream.Type = "text/html"
Call objStream.SaveToFile("C:\temp.mht", adSaveCreateOverWrite)
End With
Dim objStream As ADODB.Stream
With iMsg
.CreateMHTMLBody "http://ckrd134.cnki.net/tpi50/index128.aspx", cdoSuppressAll, "", ""
Set objStream = .GetStream
'objStream.Charset = "gb2312"
'objStream.Type = "text/html"
Call objStream.SaveToFile("C:\temp.mht", adSaveCreateOverWrite)
End With
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货