Perl

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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $mht = Chilkat2::Mht->new;

# This should be an absolute or relative path to the MHT file.
# It is the MHT to be unpacked.
my $mhtPath = 'qa_data/mht/test.mht';

my $unpackDir = 'C:/AAWorkarea/mht_unpack';
my $htmlFilename = 'test.html';
my $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.

my $success = $mht->UnpackMHT($mhtPath, $unpackDir, $htmlFilename, $partsSubDir);
if (!$success) {
    print $mht->LastErrorText, "\n";
    print "Failed.\n";
} else {
    print "Success.\n";
}