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);

    }