(Tcl) Find the "Sent" IMAP Mailbox

Find the "Sent" IMAP mailbox. Also finds the Junk and Trash mailboxes..

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set imap [new_CkImap]

CkImap_put_Ssl $imap 1
CkImap_put_Port $imap 993
set success [CkImap_Connect $imap "imap.yourmailserver.com"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Login or authenticate in some way..
set success [CkImap_Login $imap "your_login" "your_password"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Get the list of mailboxes.
set refName ""
set wildcardedMailbox "*"
set subscribed 0

set mboxes [new_CkMailboxes]

set success [CkImap_MbxList $imap $subscribed $refName $wildcardedMailbox $mboxes]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkMailboxes $mboxes
    exit
}

# The mailbox with the "/Sent" flag is the "Sent" mailbox.
# Likewise for Junk and Trash..
set i 0
while {$i < [CkMailboxes_get_Count $mboxes]} {
    if {[CkMailboxes_HasFlag $mboxes $i "\\Sent"] == 1} then {
        puts "Sent mailbox: [CkMailboxes_getName $mboxes $i]"
    }

    if {[CkMailboxes_HasFlag $mboxes $i "\\Junk"] == 1} then {
        puts "Junk mailbox: [CkMailboxes_getName $mboxes $i]"
    }

    if {[CkMailboxes_HasFlag $mboxes $i "\\Trash"] == 1} then {
        puts "Trash mailbox: [CkMailboxes_getName $mboxes $i]"
    }

    set i [expr $i + 1]
}

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

delete_CkImap $imap
delete_CkMailboxes $mboxes