Extract Files from MIME

Extract files from a MIME message.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

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";
}