Tcl

Save Email Attachments to Filesystem

Saves email attachments to a directory. Tcl

load ./chilkat.dll

set success 0

set email [new_CkEmail]

#  Load an email object containing attachments.
#  This .eml can be downloaded from:
#  http://www.example-code.com/testData/HtmlEmail.eml

set success [CkEmail_LoadEml $email "HtmlEmail.eml"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

#  If OverwriteExisting is turned on, files with the same
#  name are overwritten.  If turned off, new/unique filenames
#  are automatically generated.  The filenames actually saved
#  are accessible via the GetAttachmentFilename method.
CkEmail_put_OverwriteExisting $email 1

#  Save all attachments to the "myAttachments" subdirectory
#  found under the calling process's current working directory.
#  This directory is automatically created if it does not already
#  exist.
set success [CkEmail_SaveAllAttachments $email "myAttachments"]
if {$success != 1} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    exit
}

#  List the attachment filenames:

for {set i 0} {$i <= [expr [CkEmail_get_NumAttachments $email] - 1]} {incr i} {
    puts [CkEmail_getAttachmentFilename $email $i]
}

delete_CkEmail $email