B4X

Unpack MHT to Files

See more MHT / HTML Email Examples

Demonstrates how to unpack a .mhtml to files. Unpacks the HTML and to a directory, and image files to a sub-directory located under the directory where the HTML file is unpacked. The image links in the HTML are updated to point to the image files. B4X

Dim success As Boolean = False

'  This example assumes the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim mht As ChilkatMht
mht.Initialize("mht")

'  This should be an absolute or relative path to the MHT file.
'  It is the MHT to be unpacked.
Dim mhtPath As String = "qa_data/mht/test.mht"

Dim unpackDir As String = "C:/AAWorkarea/mht_unpack"
Dim htmlFilename As String = "test.html"
Dim partsSubDir As String = "images"

'  Unpacking will create the HTML file C:/AAWorkarea/mht_unpack/test.html
'  The image files are unpacked to C:/AAWorkarea/mht_unpack/images
'  The unpackDir and partsSubDir are automatically created if needed.

success = mht.UnpackMHT(mhtPath, unpackDir, htmlFilename, partsSubDir)
If success = False Then
    Log(mht.LastErrorText)
    Log("Failed.")
Else
    Log("Success.")
End If