Unicode C

Examine Yahoo Mail IMAP Session Log

See more Yahoo Mail Examples

To examine the IMAP session log, set the KeepSessionLog property = _TRUE_, and then examine the contents of the SessionLog property. Unicode C

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

void ChilkatSample(void)
    {
    BOOL success;
    HCkJsonObjectW json;
    const wchar_t *accessToken;
    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.

    // See Get Yahoo Mail OAuth2 Access Token for Desktop App 
    // for sample code showing how to obtain a Yahoo Mail access token.

    // In this example, our access token was previously saved to the following file which contains JSON like this:
    // {
    //   "access_token": "kCVQdnOdul...LHucA--",
    //   "refresh_token": "AIenVXETSo0jklFBVkPS8vVm8E.Ej9ToRG.xDbDYmZ65WIs5t6CZhDrD",
    //   "expires_in": 3600,
    //   "token_type": "bearer",
    //   "xoauth_yahoo_guid": "HGDQCVF5JB4YDOWHITQJFBHCWA"
    // }

    json = CkJsonObjectW_Create();
    success = CkJsonObjectW_LoadFile(json,L"qa_data/tokens/yahooMail.json");
    if (success != TRUE) {
        wprintf(L"Failed to load Yahoo Mail access token file.\n");
        CkJsonObjectW_Dispose(json);
        return;
    }

    accessToken = CkJsonObjectW_stringOf(json,L"access_token");

    // Do OAuth2 authentication by using the access token as the password in the Login method below...
    imap = CkImapW_Create();

    CkImapW_putSsl(imap,TRUE);
    CkImapW_putPort(imap,993);

    // Tell Chilkat IMAP to keep a session log.
    CkImapW_putKeepSessionLog(imap,TRUE);

    // Connect to the Yahoo IMAP server.
    success = CkImapW_Connect(imap,L"imap.mail.yahoo.com");
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkJsonObjectW_Dispose(json);
        CkImapW_Dispose(imap);
        return;
    }

    // Indicate that XOAUTH2 authentication is to be used:
    CkImapW_putAuthMethod(imap,L"XOAUTH2");

    // Login
    // Use the email address of the Yahoo Mail account that granted authorization.
    success = CkImapW_Login(imap,L"user@yahoo.com",accessToken);
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
    }
    else {
        wprintf(L"Successfully authenticated with Yahoo IMAP using XOAUTH2!\n");
    }

    // Get the list of mailboxes.
    refName = L"";
    wildcardedMailbox = L"*";
    subscribed = FALSE;

    mboxes = CkMailboxesW_Create();
    success = CkImapW_MbxList(imap,subscribed,refName,wildcardedMailbox,mboxes);
    if (success == FALSE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkJsonObjectW_Dispose(json);
        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;
    }

    // Sample output looks like this:

    // Archive
    // Bulk Mail
    // Draft
    // Inbox
    // Inbox/emailsWithAttach
    // Inbox/test
    // Sent
    // Trash

    // Examine the session log
    wprintf(L"%s\n",CkImapW_sessionLog(imap));

    // Sample session log

    // ----INFO----
    // Connecting to IMAP server at imap.mail.yahoo.com:993
    // ----IMAP RESPONSE----
    // * OK [CAPABILITY IMAP4rev1 SASL-IR AUTH=PLAIN AUTH=XOAUTH2 AUTH=OAUTHBEARER ID MOVE NAMESPACE XYMHIGHESTMODSEQ UIDPLUS LITERAL+ CHILDREN X-MSG-EXT OBJECTID] IMAP4rev1 Hello
    // ----IMAP REQUEST----
    // aaab AUTHENTICATE XOAUTH2 
    // ----IMAP RESPONSE----
    // aaab OK AUTHENTICATE completed
    // ----IMAP REQUEST----
    // aaac LIST "" "*"
    // ----IMAP RESPONSE----
    // * LIST (\Archive \HasNoChildren) "/" "Archive"
    // * LIST (\Junk \HasNoChildren) "/" "Bulk Mail"
    // * LIST (\Drafts \HasNoChildren) "/" "Draft"
    // * LIST (\HasChildren) "/" "Inbox"
    // * LIST (\HasNoChildren) "/" "Inbox/emailsWithAttach"
    // * LIST (\HasNoChildren) "/" "Inbox/test"
    // * LIST (\Sent \HasNoChildren) "/" "Sent"
    // * LIST (\Trash \HasNoChildren) "/" "Trash"
    // aaac OK LIST completed

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


    CkJsonObjectW_Dispose(json);
    CkImapW_Dispose(imap);
    CkMailboxesW_Dispose(mboxes);

    }