' Get the cookie loWebResponse = loWebRequest.GetResponse() loCookieCollection = loWebResponse.Cookies loWebRequest.CookieContainer.Add(loCookieCollection) For lnCounter = 0 To loCookieCollection.Count - 1 lcCookie = loCookieCollection.Item(lnCounter).Name If lcCookie = "LevelExtremeSession" Then lcCookie = loCookieCollection.Item(lnCounter).Value ' Define the cookie loMessage.Configuration.Fields.Item(CDO.CdoConfiguration.cdoHTTPCookies).Value = _ "LevelExtremeSession=" + lcCookie End If Next ' Go get the page loMessage.CreateMHTMLBody("http://www.myurl.com/MyPage.aspx", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "") loStream = loMessage.GetStream() ' Save to file loStream.SaveToFile("D:\Test.mhtml", SaveOptionsEnum.adSaveCreateOverWrite)