Unpack MHT MIME Text into Files

See more MHT / HTML Email Examples

Demonstrates Mht.UnpackMHTString, which extracts MHT data into its constituent parts: the HTML document and its referenced resources. The source is MHT MIME text supplied as a string.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Dim success As Boolean = False

Dim mht As New Chilkat.Mht

'  The file paths are relative to the application's current working directory.  Absolute paths may
'  also be used.  Supply the paths appropriate to your own environment.

'  Load the MHT MIME text into a string.
Dim sbMht As New Chilkat.StringBuilder
Dim bLoaded As Boolean = sbMht.LoadFile("qa_data/page.mht","utf-8")
If (bLoaded <> True) Then
    Debug.WriteLine("Failed to load the MHT file.")
    Exit Sub
End If


'  Unpack the MHT MIME text into its constituent parts.  The 1st argument may be MHT MIME text or a
'  file path; the 2nd is the unpack directory, the 3rd is the main HTML filename, and the 4th is the
'  sub-directory (relative to the unpack directory) for the referenced parts such as images and style
'  sheets.
success = mht.UnpackMHTString(sbMht.GetAsString(),"qa_output/unpacked","index.html","parts")
If (success = False) Then
    Debug.WriteLine(mht.LastErrorText)
    Exit Sub
End If

Debug.WriteLine("MHT unpacked.")