(Tcl) Find the "Sent" IMAP Mailbox

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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 != 1} 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 != 1} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

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

# mboxes is a CkMailboxes
set mboxes [CkImap_ListMailboxes $imap $refName $wildcardedMailbox]
if {[CkImap_get_LastMethodSuccess $imap] == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    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_CkMailboxes $mboxes


delete_CkImap $imap