Perl

Get the Content-Type of a Related Item

Demonstrates the Chilkat Email.GetRelatedContentType method, which returns the Content-Type of the Nth related content item in an email. The index is zero-based. This example adds a related style sheet and reads its content type.

Background: Each related item declares a Content-Type — image/png for an inline image, text/css for a style sheet, and so on — that tells the rendering client how to use it. Reading the content type lets a program enumerate a message's embedded resources and act on them by kind, for example collecting every inline image while ignoring the style sheets.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

#  Demonstrates the GetRelatedContentType method, which returns the Content-Type of the Nth
#  related content item in an email.  The index is zero-based.

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

#  The HTML references the style sheet by name (Content-Location).
$email->SetHtmlBody("<html><head><link rel=\"stylesheet\" href=\"styles.css\"/></head><body>Styled.</body></html>");

#  Add the related style sheet (index 0).
$email->AddRelatedString2("styles.css","body { color: navy; }","utf-8");

#  Read the Content-Type of the first related item (index 0).
$ct = $email->getRelatedContentType(0);
print "Related item 0 Content-Type: " . $ct . "\r\n";