Unicode C

Subscribe to Mailboxes and List Subscribed Mailboxes

See more IMAP Examples

Demonstrates how to list subscribed mailboxes, and unsubscribe/subscribe to a mailbox. Unicode C

#include <C_CkImapW.h>
#include <C_CkMailboxesW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkImapW imap;
    const wchar_t *refName;
    const wchar_t *wildcardedMailbox;
    BOOL subscribed;
    HCkMailboxesW mboxes;
    int i;

    success = FALSE;

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

    imap = CkImapW_Create();

    // Connect to an IMAP server.
    // Use TLS
    CkImapW_putSsl(imap,TRUE);
    CkImapW_putPort(imap,993);
    success = CkImapW_Connect(imap,L"imap.example.com");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        return;
    }

    // Login
    success = CkImapW_Login(imap,L"myLogin",L"myPassword");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        return;
    }

    // First examine the already subscribed mailboxes.
    refName = L"";
    wildcardedMailbox = L"*";
    subscribed = TRUE;

    mboxes = CkMailboxesW_Create();
    success = CkImapW_MbxList(imap,subscribed,refName,wildcardedMailbox,mboxes);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMailboxesW_Dispose(mboxes);
        return;
    }

    i = 0;
    while (i < CkMailboxesW_getCount(mboxes)) {
        wprintf(L"%s\n",CkMailboxesW_getName(mboxes,i));
        i = i + 1;
    }

    wprintf(L"----\n");

    // Sample output.

    // INBOX
    // INBOX/recent
    // INBOX/misc
    // INBOX/misc/solutions
    // ...
    // Outbox
    // Deleted Items
    // Sent Items
    // Drafts
    // Junk E-mail
    // Trash
    // Sent
    // Templates

    // Let's unsubscribe to "INBOX/misc/solutions".
    success = CkImapW_Unsubscribe(imap,L"INBOX/misc/solutions");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMailboxesW_Dispose(mboxes);
        return;
    }

    // Get the list of subscribed mailboxes again to verify that "INBOX/misc/solutions" is missing.
    success = CkImapW_MbxList(imap,subscribed,L"",L"INBOX/misc*",mboxes);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMailboxesW_Dispose(mboxes);
        return;
    }

    i = 0;
    while (i < CkMailboxesW_getCount(mboxes)) {
        wprintf(L"%s\n",CkMailboxesW_getName(mboxes,i));
        i = i + 1;
    }

    wprintf(L"----\n");

    // Re-subscribe to "INBOX/misc/solutions".
    success = CkImapW_Subscribe(imap,L"INBOX/misc/solutions");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMailboxesW_Dispose(mboxes);
        return;
    }

    // Get the list of subscribed mailboxes again to verify that "INBOX/misc/solutions" is back in the list.
    success = CkImapW_MbxList(imap,subscribed,L"",L"INBOX/misc*",mboxes);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkImapW_Dispose(imap);
        CkMailboxesW_Dispose(mboxes);
        return;
    }

    i = 0;
    while (i < CkMailboxesW_getCount(mboxes)) {
        wprintf(L"%s\n",CkMailboxesW_getName(mboxes,i));
        i = i + 1;
    }

    wprintf(L"----\n");

    // Disconnect from the IMAP server.
    success = CkImapW_Disconnect(imap);


    CkImapW_Dispose(imap);
    CkMailboxesW_Dispose(mboxes);

    }