Save Web Page to String Variable (.mht / MIME format)

Downloads a web page into a string variable containing MHT. MHT is a web archive with all images and style sheets embedded. It's a MIME-formatted text document. When saved with the .mht extension, Internet Explorer can open and display the page.

Download Chilkat MHT ActiveX

Dim mht As New ChilkatMht

Dim success As Long

success = mht.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Mht component unlock failed"
    Exit Sub
End If

Dim mhtStr As String

mhtStr = mht.GetMHT("http://www.google.com/")
If (mhtStr = vbNullString ) Then
    mht.SaveLastError "mhtLog.txt"
    Text1.Text = Text1.Text & "Failed to download web page to MHT" & vbCrLf
    Text1.Refresh
Else
    Text1.Text = Text1.Text & mhtStr & vbCrLf
    Text1.Refresh
End If