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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $email = Chilkat2::Email->new;
$email->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).
my $ct = $email->GetRelatedContentType(0);
print 'Related item 0 Content-Type: ', $ct, "\n";