VBA Code for webpage save as MHT file

[krishnaoptif]

I want o write a vba code for below: I want to download and saves a list of webpages (and contents like images, animated GIFs, sounds, videos,...) as MHT Files (1 MHT file for each link from the list). In the below files there's an example of how it should look like.

Links

http://9gag.com/gag/4628225

http://www.youtube.com/watch?v=zKtAuflyc5w

http://9gag.com/gag/2852734

http://9gag.com/gag/3859123

http://rimuito.com/voce-em-um-apocalipse-zumbi/

http://www.ahnegao.com.br/2011/12/custo-da-beleza.html

http://3drt.com/store/characters/us-army-marines.html

<colgroup><col width="389" style="width: 292pt; mso-width-source: userset; mso-width-alt: 14226;"> <tbody> </tbody>

I am familiar with the URLDownloadToFile function, but it doesn't download the webpage's contents. What I need is something like a URLDownloadToMHT function that downloads the entire webpage and its contents and packs it into a MHT file. The MHT file, obviously, needs to link the content files locally for offline browsing (I don't know exactly how a MHT file works, but what I mean is that src="http://www...file.jpg" should be replaced by src="file.jpg", something like that)

I am also familiar with softwares like WinHTTrack, that do something similar(with HTML files), but I think the downloaded files get too messy and disorganized, that's why I need something simple like MHT files saved in a folder of my choice.
I need this Excel file to work in any Windows XP/Windows 7 computer, without dependencies from other files like third-party dll's or any other files.

May you pleas provide me VBA code line for above..

 

[ZVI]

Hope you know that static saved web-page is not the same as the dynamic original one.
Save manually via the browser as MHT any web-page from your list and open that saved copy to see the differences.

You can start with the below code to save web-page as MHT file:

Sub Test()
  UrlToMht "http://9gag.com/gag/4628225", "c:\Temp\1.mht"
End Sub
 
Sub UrlToMht(Url As String, Mht As String)
' ZVI:2014-02-13 http://www.mrexcel.com/forum/excel-questions/757383-visual-basic-applications-code-webpage-save-mht-file.html
  With CreateObject("CDO.Message")
    .MimeFormatted = True
    .CreateMHTMLBody Url, 0, "", ""
    .GetStream.SaveToFile Mht, 2
  End With
End Sub

 

[Milu]

Hope you know that static saved web-page is not the same as the dynamic original one.
Save manually via the browser as MHT any web-page from your list and open that saved copy to see the differences.

You can start with the below code to save web-page as MHT file:

Sub Test()
  UrlToMht "http://9gag.com/gag/4628225", "c:\Temp\1.mht"
End Sub
 
Sub UrlToMht(Url As String, Mht As String)
' ZVI:2014-02-13 http://www.mrexcel.com/forum/excel-questions/757383-visual-basic-applications-code-webpage-save-mht-file.html
  With CreateObject("CDO.Message")
    .MimeFormatted = True
    .CreateMHTMLBody Url, 0, "", ""
    .GetStream.SaveToFile Mht, 2
  End With
End Sub

This is already resolved. Now what action reqired?