(Tcl) Sorting Email

Demonstrates how to sort an email bundle.

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 the IMAP server.
# Use TLS
CkImap_put_Ssl $imap 1
CkImap_put_Port $imap 993
set success [CkImap_Connect $imap "imap.someMailServer.com"]
if {[expr $success != 1]} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

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

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

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

# Pass any of the above strings here to test a search:
# messageSet is a CkMessageSet
set messageSet [CkImap_Search $imap "ALL" $fetchUids]
if {[expr [CkImap_get_LastMethodSuccess $imap] == 0]} 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 {[expr [CkImap_get_LastMethodSuccess $imap] == 0]} then {
    delete_CkMessageSet $messageSet

    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Sort the email bundle by date, recipient, sender, or subject:
set ascending 1
CkEmailBundle_SortByDate $bundle $ascending

# To sort by recipient, sender, or subject, call 
# SortBySender, SortByRecipient, or SortBySubject.

# Display the Subject and From of each email.
set i 0
while {[expr $i < [CkEmailBundle_get_MessageCount $bundle]]} {
    # email is a CkEmail

    set email [CkEmailBundle_GetEmail $bundle $i]

    puts [CkEmail_getHeaderField $email Date]
    puts [CkEmail_subject $email]
    puts [CkEmail_from $email]
    puts "--"

    delete_CkEmail $email

    set i [expr $i + 1]
}

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

delete_CkMessageSet $messageSet

delete_CkEmailBundle $bundle


delete_CkImap $imap