Tcl
Tcl
Attach an Email to Another Email
See more Email Object Examples
Demonstrates the Chilkat Email.AttachEmail method, which attaches a copy of another email to this email object. The attached email is encapsulated in a message/rfc822 subpart. Because a copy is attached, later changes to the source email do not affect the embedded message. This example attaches one email to another.
Background: "Forward as attachment" produces exactly this structure: the original message is embedded whole as a
message/rfc822 part rather than quoted into the body. This preserves the original's headers and formatting intact, which matters for forwarding to a mailbox that will re-parse it, or for reporting spam/phishing with the original evidence attached. Such parts are counted by NumAttachedMessages.Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
# Demonstrates the AttachEmail method, which attaches a copy of another email to this email
# object. The attached email is encapsulated in a message/rfc822 subpart.
set innerEmail [new_CkEmail]
CkEmail_put_Subject $innerEmail "Original message"
CkEmail_put_From $innerEmail "alice@example.com"
CkEmail_put_Body $innerEmail "This is the original message being forwarded."
set email [new_CkEmail]
CkEmail_put_Subject $email "FW: Original message"
CkEmail_put_From $email "bob@example.com"
CkEmail_put_Body $email "See the attached original email."
# Attach a copy of the inner email as a message/rfc822 part.
set success [CkEmail_AttachEmail $email $innerEmail]
if {$success == 0} then {
puts [CkEmail_lastErrorText $email]
delete_CkEmail $innerEmail
delete_CkEmail $email
exit
}
puts "NumAttachedMessages = [CkEmail_get_NumAttachedMessages $email]"
delete_CkEmail $innerEmail
delete_CkEmail $email