PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mht
string ls_MhtPath
string ls_UnpackDir
string ls_HtmlFilename
string ls_PartsSubDir

li_Success = 0

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

loo_Mht = create oleobject
li_rc = loo_Mht.ConnectToNewObject("Chilkat.Mht")
if li_rc < 0 then
    destroy loo_Mht
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// This should be an absolute or relative path to the MHT file.
// It is the MHT to be unpacked.
ls_MhtPath = "qa_data/mht/test.mht"

ls_UnpackDir = "C:/AAWorkarea/mht_unpack"
ls_HtmlFilename = "test.html"
ls_PartsSubDir = "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.

li_Success = loo_Mht.UnpackMHT(ls_MhtPath,ls_UnpackDir,ls_HtmlFilename,ls_PartsSubDir)
if li_Success = 0 then
    Write-Debug loo_Mht.LastErrorText
    Write-Debug "Failed."
else
    Write-Debug "Success."
end if



destroy loo_Mht