Tcl

Add File Attachments to an Email

Demonstrates how to add one or more file attachments to an email. Tcl

load ./chilkat.dll

set success 0

set email [new_CkEmail]

CkEmail_put_Subject $email "This is a test"
CkEmail_put_Body $email "This is a test"
CkEmail_put_From $email "support@chilkatsoft.com"
set success [CkEmail_AddTo $email "Chilkat Admin" "admin@chilkatsoft.com"]

# To add file attachments to an email, call AddFileAttachment
# once for each file to be attached.  The method returns
# the content-type of the attachment if successful, otherwise
# returns cknull

set contentType [CkEmail_addFileAttachment $email "something.pdf"]
if {[CkEmail_get_LastMethodSuccess $email] != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

set contentType [CkEmail_addFileAttachment $email "something.xml"]
if {[CkEmail_get_LastMethodSuccess $email] != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

set contentType [CkEmail_addFileAttachment $email "something.zip"]
if {[CkEmail_get_LastMethodSuccess $email] != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

set success [CkEmail_SaveEml $email "email.eml"]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

puts "Saved EML!"

delete_CkEmail $email