Tcl

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

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

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

set email [new_CkEmail]

CkEmail_put_Subject $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>"
puts "NumAlternatives before = [CkEmail_get_NumAlternatives $email]"
puts "HasPlainTextBody before: [CkEmail_HasPlainTextBody $email]"

#  Remove the plain-text body, leaving the HTML alternative.
CkEmail_RemovePlainTextAlternative $email
puts "NumAlternatives after = [CkEmail_get_NumAlternatives $email]"
puts "HasPlainTextBody after: [CkEmail_HasPlainTextBody $email]"

delete_CkEmail $email