PowerBuilder
Force Quoted-Printable Encoding for Email

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

PowerBuilder
integer li_rc
long li_Success
oleobject loo_Email
oleobject loo_Mailman

li_Success = 0

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Email.Subject = "test"
loo_Email.From = "bob@example.com"
loo_Email.AddTo("Mary","mary@example.com")

//  Add plain-text and HTML alternative bodies.
//  Include some "=" chars so we can see the quoted-printable encoding when used..
loo_Email.AddPlainTextAlternativeBody("This is a test == Hello World!")
loo_Email.AddHtmlAlternativeBody("<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.)
loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")

Write-Debug loo_Mailman.RenderToMime(loo_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--

Write-Debug "----"

//  To force quoted-printable, set the Content-Transfer-Encoding header.
//  It will automatically propagate as needed to the MIME sub-parts.
loo_Email.AddHeaderField("Content-Transfer-Encoding","quoted-printable")
Write-Debug loo_Mailman.RenderToMime(loo_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--


destroy loo_Email
destroy loo_Mailman