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")