Page save as .mht file

[Josph]

Hi

I use this

Set ObjIE = CreateObject("InternetExplorer.Application")
ObjIE.Visible = True
ObjIE.Navigate2 "http://www.google.dk/search?hl=da&q= test &meta="
    'Wait till the page is completely displayed!
    'The following three lines are not needed if
    'you don't want to wait for the 1st page to display completely
    While ObjIE.ReadyState < 4
        Sleep 100
    Wend

Can I save the page as .mht file ?

[Killer42]

I did a Google search for "VB SAVE MHT" and found tons of entries (around 88,000). Just glancing through the first page, most seem to be talking about software you can obtain to do it. However, I found this on another forum. It sounds as though it might be some help. If not, try the Google search and see what you can come up with.

Quoting...

Expertise: Advanced
Language: .NET
June 26, 2007

Save a URL as an MHT File
To save a URL as an MHT file (Microsoft "Multipurpose Internet Mail Extension HTML"—a Web Archive File), reference the Microsoft ActiveX Data Objects 2.7 and Microsoft CDO libraries and use the following code:

void SaveWebPageToMHTFile( string url, string filePath)
{
   CDO.Message msg = new CDO.MessageClass(); 
   ADODB.Stream stm = null ;
   msg.MimeFormatted =true;   
   msg.CreateMHTMLBody(url, 
      CDO.CdoMHTMLFlags.cdoSuppressNone, 
      "" ,"" );
   stm = msg.GetStream();
   stm.SaveToFile(filePath, 
      ADODB.SaveOptionsEnum.adSaveCreateOverWrite);
   msg=null;
   stm.Close();
}

Srinath MS