(Tcl) Force Quoted-Printable Encoding for Email

Demonstrates how to force the quoted-printable encoding for email.

Chilkat Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll



set email [new_CkEmail]

CkEmail_put_Subject $email "test"
CkEmail_put_From $email "bob@example.com"
CkEmail_AddTo $email "Mary" "mary@example.com"

# Add plain-text and HTML alternative bodies.
# Include some "=" chars so we can see the quoted-printable encoding when used..
CkEmail_AddPlainTextAlternativeBody $email "This is a test == Hello World!"
CkEmail_AddHtmlAlternativeBody $email "<html><body>This is a test == Hello World!</body></html>"

# Examine the MIME of the email to see that it does not use quoted-printable.
# (If the email contained non-usascii chars, it would automatically use quoted-printable.)
set mailman [new_CkMailMan]

puts [CkMailMan_renderToMime $mailman $email]

# Here is the MIME before forcing quoted-printable.
# Notice the Content-Transfer-Encoding is "7bit" (not "quoted-printable")

# MIME-Version: 1.0
# Date: Tue, 29 Sep 2020 12:26:52 -0500
# Message-ID: <CF274FC0A2F82B98A05B7507DF7DFB966A2C0EB8@CHILKATSLICE>
# Content-Type: multipart/alternative;
#  boundary="------------080901080902080000030208"
# X-Priority: 3 (Normal)
# Subject: test
# From: bob@example.com
# To: Mary <mary@example.com>
# 
# --------------080901080902080000030208
# Content-Transfer-Encoding: 7bit
# Content-Type: text/plain; charset=us-ascii; format=flowed
# 
# This is a test == Hello World!
# --------------080901080902080000030208
# Content-Transfer-Encoding: 7bit
# Content-Type: text/html; charset=us-ascii
# 
# <html><body>This is a test == Hello World!</body></html>
# --------------080901080902080000030208--

puts "----"

# To force quoted-printable, set the Content-Transfer-Encoding header.
# It will automatically propagate as needed to the MIME sub-parts.
CkEmail_AddHeaderField $email "Content-Transfer-Encoding" "quoted-printable"
puts [CkMailMan_renderToMime $mailman $email]

# MIME-Version: 1.0
# Date: Tue, 29 Sep 2020 12:26:52 -0500
# Message-ID: <F36B276E3A720FE5111D15CE9142C8909E1F5AB9@CHILKATSLICE>
# Content-Type: multipart/alternative;
#  boundary="------------080901080902080000030208"
# X-Priority: 3 (Normal)
# Subject: test
# From: bob@example.com
# To: Mary <mary@example.com>
# 
# --------------080901080902080000030208
# Content-Transfer-Encoding: quoted-printable
# Content-Type: text/plain; charset=us-ascii; format=flowed
# 
# This is a test =3D=3D Hello World!
# --------------080901080902080000030208
# Content-Transfer-Encoding: quoted-printable
# Content-Type: text/html; charset=us-ascii
# 
# <html><body>This is a test =3D=3D Hello World!</body></html>
# --------------080901080902080000030208--

delete_CkEmail $email
delete_CkMailMan $mailman