Perl

Remove the Plain-Text Body from an Email

Demonstrates the Chilkat Email.RemovePlainTextAlternative method, which removes the plain-text body from the email if one exists. Other body representations, attachments, and related items remain unchanged. This example builds a message with both plain-text and HTML alternatives, then removes the plain text.

Background: This is the counterpart to RemoveHtmlAlternative. Removing the plain-text alternative leaves an HTML-only message. Note that dropping the plain-text fallback is generally discouraged for real mail — it hurts accessibility and can raise spam scores — but it is occasionally needed when a downstream system expects a single HTML representation.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the RemovePlainTextAlternative method, which removes the plain-text body
# from the email (if one exists).  Other body representations, attachments, and related
# items remain.

my $email = Chilkat2::Email->new;
$email->Subject('Remove plain-text alternative');

# Create an email with both plain-text and HTML alternatives.
$email->SetTextBody('This is the plain-text version.', 'text/plain');
$email->AddHtmlAlternativeBody('<html><body>This is the HTML version.</body></html>');
print 'NumAlternatives before = ', $email->NumAlternatives, "\n";
print 'HasPlainTextBody before: ', ($email->HasPlainTextBody() ? 1 : 0), "\n";

# Remove the plain-text body, leaving the HTML alternative.
$email->RemovePlainTextAlternative();
print 'NumAlternatives after = ', $email->NumAlternatives, "\n";
print 'HasPlainTextBody after: ', ($email->HasPlainTextBody() ? 1 : 0), "\n";