Extract Files from MIME

Extract files from a MIME message.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$mime = new chilkat::CkMime();

$success = $mime->UnlockComponent("Anything for 30-day trial.");
if ($success == 0) {
    print "Failed to unlock component" . "\n";
    exit;
}

#  Load a MIME document from a file:
#  (.mht and .eml files contain MIME).
$success = $mime->LoadMimeFile("mst.mht");
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

# sa is a CkStringArray
$sa = $mime->ExtractPartsToFiles("c:/temp/mimeParts");
if ($sa eq null ) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

$n = $sa->get_Count();

#  Display the filepaths of the files created:
for ($i = 0; $i <= $n - 1; $i++) {
    print $sa->getString($i) . "\r\n";
}