(Perl) Iterate MIME Parts of an Email

Demonstrates how to iterate over the MIME sub-parts of an email, and retrieve the content of each MIME sub-part body.

Note: This example requires some new features added to Chilkat v9.5.0.95.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

# See the following Chilkat post to Quickly Understand Email MIME

$email = chilkat::CkEmail->new();

$success = $email->LoadEml("qa_data/eml/sample.eml");
if ($success == 0) {
    print "Failed to load .eml" . "\r\n";
    exit;
}

$sbContentType = chilkat::CkStringBuilder->new();
$caseSensitive = 0;

# Get the total number of non-multipart MIME sub-parts.
# (This is a simple way of iterating over all the MIME leaf parts regardless of the MIME tree structure)
$inlineOnly = 0;
$excludeAttachments = 0;
$searchSpec = "*/*";

$numParts = $email->GetNumPartsOfType($searchSpec,$inlineOnly,$excludeAttachments);
$i = 0;
while ($i < $numParts) {
    # What is the Content-Type of this MIME part?
    $sbContentType->Append($email->getNthContentType($i,$searchSpec,$inlineOnly,$excludeAttachments));
    if ($sbContentType->StartsWith("text/",$caseSensitive) == 1) {
        # Get the text body of this MIME part.
        $textBody = $email->getNthTextPartOfType($i,$searchSpec,$inlineOnly,$excludeAttachments);
        print "Got text body for " . $sbContentType->getAsString() . "\r\n";
    }
    else {
        if ($sbContentType->ContentsEqual("message/rfc822",$caseSensitive) == 1) {
            # If the Content-Type is message/rfc822, then the MIME body for this part contains a full embedded MIME messages.
            # Your application could load it into a Chilkat email object and recursively process...
            $attachedEmail = chilkat::CkEmail->new();
            $bdMime = chilkat::CkBinData->new();
            $email->GetNthBinaryPartOfTypeBd($i,$searchSpec,$inlineOnly,$excludeAttachments,$bdMime);
            $attachedEmail->SetFromMimeBd($bdMime);
            # Now your app can recursively process the attachedEmail...
        }
        else {
            # Get the bytes of this MIME body part.
            $bd = chilkat::CkBinData->new();
            $email->GetNthBinaryPartOfTypeBd($i,$searchSpec,$inlineOnly,$excludeAttachments,$bd);
            print "Got binary body for " . $sbContentType->getAsString() . " numBytes = " . $bd->get_NumBytes() . "\r\n";
        }

    }

    $sbContentType->Clear();
    $i = $i + 1;
}