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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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.

my $email = Chilkat2::Email->new;

my $success = $email->LoadEml('qa_data/eml/message.eml');
if (!$success) {
    print $email->LastErrorText, "\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) {
    print $email->LastErrorText, "\n";
    exit;
}

print "Applied MIME fixups.\n";

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