Perl

Repair MIME Formatting Problems in an Email

Demonstrates the Chilkat Email.ApplyFixups method, which repairs selected MIME-formatting problems commonly found in email produced by other software. The argument is a comma-separated list of fixup keywords. The currently defined keyword is FixRelated, which relocates HTML-related items (such as embedded images) into the appropriate MIME structure so they are not incorrectly presented as ordinary attachments. This example loads an email and applies that fixup.

Background: Not every mail program builds strictly correct MIME. A common defect is placing an inline image as a loose attachment instead of nesting it in a multipart/related enclosure, which makes it show up as a downloadable file rather than displaying in the HTML. ApplyFixups corrects such structural issues so the message renders as intended.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the ApplyFixups method, which repairs selected MIME-formatting problems
#  commonly found in email produced by other software.  The argument is a comma-separated
#  list of fixup keywords.

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

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

#  Apply the "FixRelated" fixup, which relocates HTML-related items (such as embedded
#  images) into the proper MIME structure so they are not shown as ordinary attachments.
$success = $email->ApplyFixups("FixRelated");
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "Applied MIME fixups." . "\r\n";

#  Note: The path "qa_data/..." is a relative local filesystem path,
#  relative to the current working directory of the running application.