Save Web Page as .mht Web Archive

Downloads a web page into a .mht web archive.

Download Chilkat MHT ActiveX

Dim mht As New ChilkatMht

Dim success As Long

success = mht.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
End If

success = mht.GetAndSaveMHT("http://www.bonairefishing.com/","bonairefishing.mht")
If (success <> 1) Then
    Text1.Text = Text1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
Else
    MsgBox "MHT Created!"
End If