(Unicode C) 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 C/C++ Library Downloads
MS Visual C/C++ Linux/CentOS C/C++ Alpine Linux C/C++ MAC OS X C/C++	armhf/aarch64 C/C++ C++ Builder iOS C/C++ Android C/C++	Solaris C/C++ MinGW C/C++

#include <C_CkImapW.h>
#include <C_CkStringArrayW.h>

void ChilkatSample(void)
    {
    HCkImapW imapSrc;
    BOOL success;
    HCkImapW imapDest;
    int startSeqNum;
    int msgCount;
    HCkStringArrayW sa;
    int i;

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

    imapSrc = CkImapW_Create();

    // Connect to our source IMAP server.
    success = CkImapW_Connect(imapSrc,L"imap.someMailServer.com");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imapSrc));
        CkImapW_Dispose(imapSrc);
        return;
    }

    // Login to the source IMAP server
    success = CkImapW_Login(imapSrc,L"admin@chilkatsoft.com",L"myPassword");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imapSrc));
        CkImapW_Dispose(imapSrc);
        return;
    }

    imapDest = CkImapW_Create();

    // Connect to our destination IMAP server.
    success = CkImapW_Connect(imapDest,L"mail.example-code.com");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imapDest));
        CkImapW_Dispose(imapSrc);
        CkImapW_Dispose(imapDest);
        return;
    }

    // Login to the destination IMAP server
    success = CkImapW_Login(imapDest,L"myLogin",L"myPassword");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imapDest));
        CkImapW_Dispose(imapSrc);
        CkImapW_Dispose(imapDest);
        return;
    }

    // Select an IMAP mailbox on the source IMAP server
    success = CkImapW_SelectMailbox(imapSrc,L"Inbox");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imapSrc));
        CkImapW_Dispose(imapSrc);
        CkImapW_Dispose(imapDest);
        return;
    }

    // After selecting a mailbox, the NumMessages property will
    // be updated to reflect the total number of emails in the mailbox:
    wprintf(L"%d\n",CkImapW_getNumMessages(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.
    startSeqNum = 1;
    msgCount = 10;

    sa = CkImapW_FetchSequenceAsMime(imapSrc,startSeqNum,msgCount);
    if (CkImapW_getLastMethodSuccess(imapSrc) != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imapSrc));
        CkImapW_Dispose(imapSrc);
        CkImapW_Dispose(imapDest);
        return;
    }

    for (i = 0; i <= CkStringArrayW_getCount(sa) - 1; i++) {
        success = CkImapW_AppendMime(imapDest,L"Inbox",CkStringArrayW_getString(sa,i));
        if (success != TRUE) {
            wprintf(L"%s\n",CkImapW_lastErrorText(imapDest));
            CkImapW_Dispose(imapSrc);
            CkImapW_Dispose(imapDest);
            return;
        }

    }

    CkStringArrayW_Dispose(sa);

    // Disconnect from the IMAP servers.
    success = CkImapW_Disconnect(imapSrc);
    success = CkImapW_Disconnect(imapDest);


    CkImapW_Dispose(imapSrc);
    CkImapW_Dispose(imapDest);

    }