Dim loConfiguration As CDO.Configuration = New CDO.Configuration Dim loField As ADODB.Fields Dim loMessage As CDO.Message = New CDO.Message Dim loStream As ADODB.Stream ' Define the cookie loField = loConfiguration.Fields loField(CDO.CdoConfiguration.cdoHTTPCookies).Value = "" ' Make sure we set the cookie loMessage.Configuration = loConfiguration ' Go get the page loMessage.CreateMHTMLBody("http://www.levelextreme.com", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "") loStream = loMessage.GetStream() ' Save to file loStream.SaveToFile("D:\Test.mhtml")