Podrías hacerlo así:
cStr = ""
Declare Integer
ShellExecute In "Shell32.dll" ;
INTEGER HWnd, StringlpVerb, ;
STRING lpFile, String lpParameters, ;
STRING lpDirectory, Long nShowCmd
cArchivo = Sys(2015) + ".mht"
cUrl = "
http://www.davphantom.net/modulo.asp"
oMSG = Createobject( "CDO.Message")
oMSG.CreateMHTMLBody(cUrl)
cStr = oMSG.getstream
cStr.SaveToFile(cArchivo, 1)
ShellExecute(0, "Open", cArchivo, "","", 0)
Release oMSG
--------------------------------------------------
Crear archivo MHT utilizando CDO
http://www.davphantom.net/consultar.asp?id=275&op=1