(Tcl) Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

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 imap [new_CkImap]

# Connect to an IMAP server.
# Use TLS
CkImap_put_Ssl $imap 1
CkImap_put_Port $imap 993
set success [CkImap_Connect $imap "imap.someMailServer.com"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Login
set success [CkImap_Login $imap "myLogin" "myPassword"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Select an IMAP mailbox
set success [CkImap_SelectMailbox $imap "Inbox"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# messageSet is a CkMessageSet

# We can choose to fetch UIDs or sequence numbers.
set fetchUids 1

# Get the message IDs of all the emails in the mailbox
set messageSet [CkImap_Search $imap "ALL" $fetchUids]
if {[CkImap_get_LastMethodSuccess $imap] != 1} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Fetch the email headers into a bundle object:
# bundle is a CkEmailBundle

set bundle [CkImap_FetchHeaders $imap $messageSet]
if {[CkImap_get_LastMethodSuccess $imap] != 1} then {
    delete_CkMessageSet $messageSet

    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Scan for emails with attachments, and save the attachments
# to a sub-directory.

for {set i 0} {$i <= [expr [CkEmailBundle_get_MessageCount $bundle] - 1]} {incr i} {
    # email is a CkEmail

    set email [CkEmailBundle_GetEmail $bundle $i]

    # Does this email have attachments?
    # Use GetMailNumAttach because the attachments
    # are not actually in the email object because
    # we only downloaded headers.
    # (Had we downloaded the full emails by
    # calling mailman.FetchBundle, we could look
    # at the email object's NumAttachments property.)
    set numAttach [CkImap_GetMailNumAttach $imap $email]

    if {$numAttach > 0} then {
        # Download the entire email and save the
        # attachments. (Remember, we 
        # need to download the entire email because
        # only the headers were previously downloaded.
        # If the entire emails were downloaded by
        # calling FetchBundle instead of FetchHeaders,
        # this would not be necessary.

        # The ckx-imap-uid header field is added when
        # headers are downloaded.  This makes it possible
        # to get the UID from the email object.
        set uidStr [CkEmail_getHeaderField $email "ckx-imap-uid"]
        set uid $uidStr

        # fullEmail is a CkEmail

        set fullEmail [CkImap_FetchSingle $imap $uid 1]
        if {[CkImap_get_LastMethodSuccess $imap] == 1} then {
            set success [CkEmail_SaveAllAttachments $fullEmail "attachmentsDir"]
            delete_CkEmail $fullEmail

        }

        for {set j 0} {$j <= [expr $numAttach - 1]} {incr j} {
            set filename [CkImap_getMailAttachFilename $imap $email $j]
            puts "$filename"
        }

    }

    delete_CkEmail $email

}

# Disconnect from the IMAP server.
set success [CkImap_Disconnect $imap]

delete_CkMessageSet $messageSet

delete_CkEmailBundle $bundle


delete_CkImap $imap