Delphi ActiveX

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 Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
email: TChilkatEmail;

begin
//  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 := TChilkatEmail.Create(Self);
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>');
Memo1.Lines.Add('NumAlternatives before = ' + IntToStr(email.NumAlternatives));
Memo1.Lines.Add('HasPlainTextBody before: ' + IntToStr(Ord(email.HasPlainTextBody())));

//  Remove the plain-text body, leaving the HTML alternative.
email.RemovePlainTextAlternative();
Memo1.Lines.Add('NumAlternatives after = ' + IntToStr(email.NumAlternatives));
Memo1.Lines.Add('HasPlainTextBody after: ' + IntToStr(Ord(email.HasPlainTextBody())));