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

Perl

use chilkat();

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

$email = chilkat::CkEmail->new();
$email->put_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->get_NumAlternatives() . "\r\n";
print "HasPlainTextBody before: " . $email->HasPlainTextBody() . "\r\n";

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