Tcl Requires Chilkat v11.0.0+

Search IMAP Mailbox for Email Matching Criteria

Searching an IMAP mailbox for messages that match search criteria. Tcl

load ./chilkat.dll

set success 0

#  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.example.com"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

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

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

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

#  Here are examples of different search criteria:

#  Return all messages.
set allMsgs "ALL"

#  Search for already-answered emails.
set answered "ANSWERED"

#  Search for messages on a specific date.
#  The date string is DD-Month-YYYY where Month is
#  Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, or Dec.
set onDate "SENTON 05-Mar-2007"

#  Search for messages between two dates.  SENTBEFORE
#  finds emails sent before a date, and SENTSINCE finds
#  email sent on or after a date.  The "AND" operation
#  is implied by joining criteria, separated by spaces.
set betweenDates "SENTSINCE 01-Mar-2007 SENTBEFORE 05-Mar-2007"

#  Another example of AND: find all unanswered emails
#  sent after 04-Mar-2007 with "Problem" in the subject:
set complexSearch1 "UNANSWERED SENTSINCE 04-Mar-2007 Subject \"Problem\""

#  Find messages with a specific string in the body:
set bodySearch "BODY \"problem solved\""

#  Using OR.  The syntax is OR <criteria1> <criteria2>. 
#  The "OR" comes first, followed by each criteria.
#  For example, to match all emails with "Help" or "Question" in the subject.
#  You'll notice that literal strings may be quoted or unquoted.
#  If a literal contains SPACE characters, quote it:
set orSearch "OR SUBJECT Help SUBJECT Question"

#  ----------------------------------------------
#  Strings are case-insensitive when searching....
#  ----------------------------------------------

#  Find all emails sent from yahoo.com addresses:
set fromSearch "FROM yahoo.com"
#  Find all emails sent from anyone with "John" in their name:
set johnSearch "FROM John"

#  Find emails with the RECENT flag set:
set recentSearch "RECENT"

#  Find emails that don't have the recent flag set:
set notRecentSearch "NOT RECENT"
#  This is synonymous with "OLD":
set oldSearch "OLD"

#  Find all emails marked for deletion:
set markedForDeleteSearch "DELETED"

#  Find all emails having a specified header field with a value
#  containing a substring:
set headerSearch "HEADER DomainKey-Signature paypal.com"

#  Find any emails having a specific header field.  If the 
#  2nd argument to the "HEADER" criteria is an empty string,
#  any email having the header field is returned regardless
#  of the header field's content.
#  Find any emails with a DomainKey-Signature field:
set headerExistsSearch "HEADER DomainKey-Signature \"\""

#  Find NEW emails: these are emails that have the RECENT flag
#  set, but not the SEEN flag:
set newSearch "NEW"

#  Find emails larger than a certain number of bytes:
set sizeLargerSearch "LARGER 500000"

#  Find emails marked as seen or not already seen:
set seenSearch "SEEN"
set notSeenSearch "NOT SEEN"

#  Find emails having a given substring in the TO header field:
set toSearch "TO support@chilkatsoft.com"
#  A more long-winded way to do the same thing:
set toSearch2 "HEADER TO support@chilkatsoft.com"

#  Find emails smaller than a size in bytes:
set smallerSearch "SMALLER 30000"

#  Find emails that have a substring anywhere in the header
#  or body:
set fullSubstringSearch "TEXT \"Zip Component\""

#  Pass any of the above strings here to test a search:
set messageSet [new_CkMessageSet]

set success [CkImap_QueryMbx $imap $orSearch $fetchUids $messageSet]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    exit
}

#  Fetch the email headers into a bundle object:
set bundle [new_CkEmailBundle]

set headersOnly 1
set success [CkImap_FetchMsgSet $imap $headersOnly $messageSet $bundle]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkMessageSet $messageSet
    delete_CkEmailBundle $bundle
    exit
}

#  Display the Subject and From of each email.
set email [new_CkEmail]

set i 0
while {$i < [CkEmailBundle_get_MessageCount $bundle]} {
    CkEmailBundle_EmailAt $bundle $i $email

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

    set i [expr $i + 1]
}

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

delete_CkImap $imap
delete_CkMessageSet $messageSet
delete_CkEmailBundle $bundle
delete_CkEmail $email