JeffHung.Blog

從 Google 上看來的《生成MHTML文件》，記錄一下方法：

Dim message, stream

Set message = CreateObject("CDO.Message")
message.MimeFormatted = True
'0 - cdoSuppressNone
message.CreateMHTMLBody "http://www.microsoft.com", 0, "" ,""
Set stream = message.GetStream()
'2 - adSaveCreateOverWrite
stream.SaveToFile "C:\Test.mht",2
Set message = Nothing
stream.Close
Set stream = Nothing