Send Email with 8bit Content-Transfer-Encoding

Send an email using the "8bit" content-transfer-encoding.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail
LOCAL lcMimeSource

*  The mailman object is used for sending and receiving email.
loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Set the SMTP server.
loMailman.SmtpHost = "smtp.comcast.net"

*  Create a new email object
loEmail = CreateObject('Chilkat.Email2')

loEmail.Subject = "This is a test"
*  The equals character is encoded as =3D in quoted-printable.
*  If the encoding is truly 8bit, we won't see it in the MIME source
*  of the email.  Instead, we'll see the equals character unmodified.
loEmail.Body = "This is a test ==="
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"
loEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")

*  Set our content-transfer-encoding to 8bit:
*  The AddHeaderField will replace the header field if it
*  already exists.
loEmail.AddHeaderField("content-transfer-encoding","8bit")

*  That's it... send the email and the HTML and/or plain-text body
*  will not be encoded using quoted-printable or base64 -- it
*  will instead be sent unencoded as 8-bit characters.
lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMailman.LastErrorText)
ELSE
    =MESSAGEBOX("Mail Sent!")
ENDIF

*  To see the exact MIME of the email sent, call
*  mailman.RenderToMime:

lcMimeSource = loMailman.RenderToMime(loEmail)
? "MIME source of email just sent"
? lcMimeSource