Very cool. I like to insulate myself from MS changes in concepts by using external controls, but it's good to know of alternatives.
>CDO Has a CreateNHTML.
>
>

>v_mhtml = Sys(2015)+".mht"
>oCdo = Createobject("CDO.Message")
>oCdo.CreateMHTMLBody("http://www.microsoft.com")
>oStream = oCdo.getstream()
>=oStream.SaveToFile(v_mhtml,1)
>oStream=null
>Ocdo=Null