Save Web Page as .mht Web Archive

Downloads a web page into a .mht web archive.

Download Chilkat MHT ActiveX

LOCAL loMht
LOCAL lnSuccess

loMht = CreateObject('Chilkat.Mht')

lnSuccess = loMht.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loMht.LastErrorText
    QUIT
ENDIF

lnSuccess = loMht.GetAndSaveMHT("http://www.bonairefishing.com/","bonairefishing.mht")
IF (lnSuccess <> 1) THEN
    ? loMht.LastErrorText
    QUIT
ELSE
    =MESSAGEBOX("MHT Created!")
ENDIF