Tcl
Tcl
Get a Header Attribute of an Attached Message
See more Email Object Examples
Demonstrates the Chilkat Email.GetAttachedMessageAttr method, which returns a header-field attribute value for the Nth attached (embedded) email. The first argument is the zero-based attached-message index, the second is the header field name, and the third is the attribute name. This example attaches an email and reads the filename attribute of its Content-Disposition header.
Background: MIME header fields can carry named attributes (parameters) after the main value — for example
Content-Disposition: attachment; filename="report.eml", where filename is an attribute. Rather than parsing the raw header yourself, this method extracts a single named attribute from a chosen header of a specific embedded message, which is convenient when a message forwards other emails as nested message/rfc822 parts.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# Demonstrates the GetAttachedMessageAttr method, which returns a header-field attribute
# value for the Nth attached (embedded) email. The first argument is the zero-based
# attached-message index, the second is the header field name, and the third is the attribute name.
# Build an inner email to attach.
set innerEmail [new_CkEmail]
CkEmail_put_Subject $innerEmail "Embedded message"
CkEmail_put_From $innerEmail "alice@example.com"
CkEmail_AddTo $innerEmail "Bob" "bob@example.com"
# Attach it to an outer email as a message/rfc822 part.
set email [new_CkEmail]
CkEmail_put_Subject $email "Has an attached message"
set success [CkEmail_AttachEmail $email $innerEmail]
if {$success == 0} then {
puts [CkEmail_lastErrorText $email]
delete_CkEmail $innerEmail
delete_CkEmail $email
exit
}
# Get the "filename" attribute of the "Content-Disposition" header of the first
# attached message (index 0).
set fname [CkEmail_getAttachedMessageAttr $email 0 "Content-Disposition" "filename"]
puts "Attached message filename attribute: $fname"
delete_CkEmail $innerEmail
delete_CkEmail $email