(Tcl) How to Copy IMAP Mail to another IMAP Server

Demonstrates how to copy the entire contents of an IMAP mailbox to another IMAP server.

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 imapSrc [new_CkImap]

# Connect to our source IMAP server.
set success [CkImap_Connect $imapSrc "imap.someMailServer.com"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imapSrc]
    delete_CkImap $imapSrc
    exit
}

# Login to the source IMAP server
set success [CkImap_Login $imapSrc "admin@chilkatsoft.com" "myPassword"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imapSrc]
    delete_CkImap $imapSrc
    exit
}

set imapDest [new_CkImap]

# Connect to our destination IMAP server.
set success [CkImap_Connect $imapDest "mail.example-code.com"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imapDest]
    delete_CkImap $imapSrc
    delete_CkImap $imapDest
    exit
}

# Login to the destination IMAP server
set success [CkImap_Login $imapDest "myLogin" "myPassword"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imapDest]
    delete_CkImap $imapSrc
    delete_CkImap $imapDest
    exit
}

# Select an IMAP mailbox on the source IMAP server
set success [CkImap_SelectMailbox $imapSrc "Inbox"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imapSrc]
    delete_CkImap $imapSrc
    delete_CkImap $imapDest
    exit
}

# After selecting a mailbox, the NumMessages property will
# be updated to reflect the total number of emails in the mailbox:
puts [CkImap_get_NumMessages $imapSrc]

# The emails in the mailbox will always have sequence numbers
# ranging from 1 to NumMessages.

# This example will copy the first 10 messages.
# We'll leave it up to you to write code to copy
# the entire sequence range in reasonable size chunks.
set startSeqNum 1
set msgCount 10

# sa is a CkStringArray

set sa [CkImap_FetchSequenceAsMime $imapSrc $startSeqNum $msgCount]
if {[CkImap_get_LastMethodSuccess $imapSrc] != 1} then {
    puts [CkImap_lastErrorText $imapSrc]
    delete_CkImap $imapSrc
    delete_CkImap $imapDest
    exit
}

for {set i 0} {$i <= [expr [CkStringArray_get_Count $sa] - 1]} {incr i} {
    set success [CkImap_AppendMime $imapDest "Inbox" [CkStringArray_getString $sa $i]]
    if {$success != 1} then {
        puts [CkImap_lastErrorText $imapDest]
        delete_CkImap $imapSrc
        delete_CkImap $imapDest
        exit
    }

}
delete_CkStringArray $sa

# Disconnect from the IMAP servers.
set success [CkImap_Disconnect $imapSrc]
set success [CkImap_Disconnect $imapDest]

delete_CkImap $imapSrc
delete_CkImap $imapDest