(Tcl) Add Header Field to MIME Sub-Header in Email

Demonstrates how to add a header field to one of the attachment sub-headers in an email.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set email [new_CkEmail]

CkEmail_put_Subject $email "test"
CkEmail_AddTo $email "Chilkat" "support@chilkatsoft.com"
CkEmail_put_From $email "Matt <matt@example.com>"
CkEmail_put_Body $email "This is a simple plain-text body."

set success [CkEmail_AddFileAttachment2 $email "qa_data/1.HPM" "application/x-hprimnet"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

# Add a "ContentDescription: HPM/3.0" in the attachment's sub-header.
# The 1st attachment is at index 0.
CkEmail_AddAttachmentHeader $email 0 "Content-Description" "HPM/3.0"

# Show the email MIME:
puts [CkEmail_getMime $email]

# This is the output:
# (Note: When Chilkat sends email, all CKX-* headers are removed prior to sending.)

# MIME-Version: 1.0
# Date: Wed, 16 Jan 2019 10:05:18 -0600
# Message-ID: <93B88835586270B7BE5202F84E171F29C10BA935@CHILKATSLICE>
# Content-Type: multipart/mixed; boundary="------------000502000000020502010608"
# X-Priority: 3 (Normal)
# Subject: test
# To: Chilkat <support@chilkatsoft.com>
# From: Matt <matt@example.com>
# CKX-Bounce-Address: matt@example.com
# 
# --------------000502000000020502010608
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# 
# This is a simple plain-text body.
# --------------000502000000020502010608
# Content-Type: application/x-hprimnet; name="1.HPM"
# Content-Transfer-Encoding: base64
# Content-Disposition: attachment; filename="1.HPM"
# Content-Description: HPM/3.0
# 
# FILE_DATA_IS_HERE...
# 
# --------------000502000000020502010608--

delete_CkEmail $email