Perl

Count the MIME Parts of a Given Content-Type

Demonstrates the Chilkat Email.GetNumPartsOfType method, which returns the number of non-multipart MIME parts matching a Content-Type pattern. The first argument is the content-type pattern (an exact type or a wildcard), the second is an inlineOnly flag, and the third is an excludeAttachments flag. This example counts the text/* parts.

Background: This is the companion of GetNthTextPartOfType: it tells you how many parts match a pattern so you can loop over them by index. Wildcards like text/* or image/* make it easy to ask questions such as "how many images does this message contain?" while the boolean flags let you include or exclude attachment parts from the count.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

#  Demonstrates the GetNumPartsOfType method, which returns the number of non-multipart
#  MIME parts matching a Content-Type pattern.  The first argument is the Content-Type
#  pattern (exact or wildcard), the second is inlineOnly, and the third is excludeAttachments.

$email = chilkat::CkEmail->new();
$email->put_Subject("GetNumPartsOfType example");

$email->SetTextBody("This is the plain-text version.","text/plain");
$email->AddHtmlAlternativeBody("<html><body>This is the HTML version.</body></html>");

#  Count the non-multipart parts whose content type matches text/*.
$n = $email->GetNumPartsOfType("text/*",0,0);
print "Number of text/* parts = " . $n . "\r\n";