Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
email: HCkEmail;

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 := CkEmail_Create();
CkEmail_putSubject(email,'Remove plain-text alternative');

//  Create an email with both plain-text and HTML alternatives.
CkEmail_SetTextBody(email,'This is the plain-text version.','text/plain');
CkEmail_AddHtmlAlternativeBody(email,'<html><body>This is the HTML version.</body></html>');
Memo1.Lines.Add('NumAlternatives before = ' + IntToStr(CkEmail_getNumAlternatives(email)));
Memo1.Lines.Add('HasPlainTextBody before: ' + IntToStr(Ord(CkEmail_HasPlainTextBody(email))));

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

CkEmail_Dispose(email);