(Ruby) Copy Email from one IMAP Account to Another

Demonstrates how to copy the email in a mailbox from one account to another.

Chilkat Ruby Downloads install from rubygems.org gem install chilkat or download... Ruby Library for Windows, MacOS, Linux, Alpine Linux

require 'chilkat'

imapSrc = Chilkat::CkImap.new()

# This example assumes Chilkat Imap to have been previously unlocked.
# See Unlock Imap for sample code.

# Connect to our source IMAP server.
imapSrc.put_Ssl(true)
imapSrc.put_Port(993)
success = imapSrc.Connect("MY-IMAP-DOMAIN")
if (success != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

# Login to the source IMAP server
success = imapSrc.Login("MY-IMAP-LOGIN","MY-IMAP-PASSWORD")
if (success != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

imapDest = Chilkat::CkImap.new()

# Connect to our destination IMAP server.
imapDest.put_Ssl(true)
imapDest.put_Port(993)
success = imapDest.Connect("MY-IMAP-DOMAIN2")
if (success != true)
    print imapDest.lastErrorText() + "\n";
    exit
end

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

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

fetchUids = true

# Get the set of UIDs for all emails on the source server.
# mset is a CkMessageSet
mset = imapSrc.Search("ALL",fetchUids)
if (imapSrc.get_LastMethodSuccess() != true)
    print imapSrc.lastErrorText() + "\n";
    exit
end

# Load the complete set of UIDs that were previously copied.
# We dont' want to copy any of these to the destination.
fac = Chilkat::CkFileAccess.new()
msetAlreadyCopied = Chilkat::CkMessageSet.new()
strMsgSet = fac.readEntireTextFile("qa_cache/saAlreadyLoaded.txt","utf-8")
if (fac.get_LastMethodSuccess() == true)
    msetAlreadyCopied.FromCompactString(strMsgSet)
end

numUids = mset.get_Count()
sbFlags = Chilkat::CkStringBuilder.new()

i = 0
while i < numUids

    # If this UID was not already copied...
    uid = mset.GetId(i)
    if (!msetAlreadyCopied.ContainsId(uid))

        print "copying " + uid.to_s() + "..." + "\n";

        # Get the flags.
        flags = imapSrc.fetchFlags(uid,true)
        if (imapSrc.get_LastMethodSuccess() == false)
            print imapSrc.lastErrorText() + "\n";
            exit
        end

        sbFlags.SetString(flags)

        # Get the MIME of this email from the source.
        mimeStr = imapSrc.fetchSingleAsMime(uid,true)
        if (imapSrc.get_LastMethodSuccess() == false)
            print imapSrc.lastErrorText() + "\n";
            exit
        end

        seen = sbFlags.Contains("\\Seen",false)
        flagged = sbFlags.Contains("\\Flagged",false)
        answered = sbFlags.Contains("\\Answered",false)
        draft = sbFlags.Contains("\\Draft",false)

        success = imapDest.AppendMimeWithFlags("Inbox",mimeStr,seen,flagged,answered,draft)
        if (success != true)
            print imapDest.lastErrorText() + "\n";
            exit
        end

        # Update msetAlreadyCopied with the uid just copied.
        msetAlreadyCopied.InsertId(uid)

        # Save at every iteration just in case there's a failure..
        strMsgSet = msetAlreadyCopied.toCompactString()
        fac.WriteEntireTextFile("qa_cache/saAlreadyLoaded.txt",strMsgSet,"utf-8",false)
    end

    i = i + 1
end

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