Tcl

Compare Two Emails by UIDL

Demonstrates the Chilkat Email.UidlEquals method, which returns true if this email's UIDL equals the UIDL of the email passed as the argument. The comparison is meaningful for messages obtained through POP3. This example gives two emails the same UIDL and compares them.

Background: A POP3 UIDL is a stable, unique identifier a server assigns to each message in a mailbox. Comparing UIDLs is how a client decides whether two message references point to the same server message — the basis for "leave messages on server" logic, where an app downloads a message once and skips it on later checks by remembering its UIDL.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

#  Demonstrates the UidlEquals method, which returns true if this email's UIDL equals the
#  UIDL of the email passed as the argument.  UIDLs are POP3 message identifiers.

set email1 [new_CkEmail]

CkEmail_AddHeaderField $email1 "X-UIDL" "0000000123abcdef"

set email2 [new_CkEmail]

CkEmail_AddHeaderField $email2 "X-UIDL" "0000000123abcdef"

#  Compare the two emails' UIDLs.
set eq [CkEmail_UidlEquals $email1 $email2]

if {$eq == 1} then {
    puts "The two emails have the same UIDL."
} else {
    puts "The two emails have different UIDLs."
}


delete_CkEmail $email1
delete_CkEmail $email2