loMsg = CreateObject("CDO.Message") loMsg.CreateMHTMLBody('http://news.google.com/nwshp?hl=en&tab=wn&q=',0,'','') loStream = loMsg.GetStream() loStream.SaveToFile("d:\googlenews.mhtml")