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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

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

loo_Mht = create oleobject
// Use "Chilkat_9_5_0.Mht" for versions of Chilkat < 10.0.0
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