(Ruby) 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 Ruby Downloads install from rubygems.org gem install chilkat or download... Ruby Library for Windows, MacOS, Linux, Alpine Linux

require 'chilkat'

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

imapSrc = Chilkat::CkImap.new()

# Connect to our source IMAP server.
success = imapSrc.Connect("imap.someMailServer.com")
if (success != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

# Login to the source IMAP server
success = imapSrc.Login("admin@chilkatsoft.com","myPassword")
if (success != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

imapDest = Chilkat::CkImap.new()

# Connect to our destination IMAP server.
success = imapDest.Connect("mail.example-code.com")
if (success != true)
    print imapDest.lastErrorText() + "\n";
    exit
end

# Login to the destination IMAP server
success = imapDest.Login("myLogin","myPassword")
if (success != true)
    print imapDest.lastErrorText() + "\n";
    exit
end

# Select an IMAP mailbox on the source IMAP server
success = imapSrc.SelectMailbox("Inbox")
if (success != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

# After selecting a mailbox, the NumMessages property will
# be updated to reflect the total number of emails in the mailbox:
print imapSrc.get_NumMessages().to_s() + "\n";

# 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.
startSeqNum = 1
msgCount = 10

# sa is a CkStringArray
sa = imapSrc.FetchSequenceAsMime(startSeqNum,msgCount)
if (imapSrc.get_LastMethodSuccess() != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

for i in 0 .. sa.get_Count() - 1
    success = imapDest.AppendMime("Inbox",sa.getString(i))
    if (success != true)
        print imapDest.lastErrorText() + "\n";
        exit
    end

end

# Disconnect from the IMAP servers.
success = imapSrc.Disconnect()
success = imapDest.Disconnect()