PureBasic

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. PureBasic

IncludeFile "CkMailboxes.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkImap.pb"

Procedure ChilkatExample()

    success.i = 0

    ; 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.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(json,"qa_data/tokens/yahooMail.json")
    If success <> 1
        Debug "Failed to load Yahoo Mail access token file."
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    accessToken.s = CkJsonObject::ckStringOf(json,"access_token")

    ; Do OAuth2 authentication by using the access token as the password in the Login method below...
    imap.i = CkImap::ckCreate()
    If imap.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkImap::setCkSsl(imap, 1)
    CkImap::setCkPort(imap, 993)

    ; Tell Chilkat IMAP to keep a session log.
    CkImap::setCkKeepSessionLog(imap, 1)

    ; Connect to the Yahoo IMAP server.
    success = CkImap::ckConnect(imap,"imap.mail.yahoo.com")
    If success = 0
        Debug CkImap::ckLastErrorText(imap)
        CkJsonObject::ckDispose(json)
        CkImap::ckDispose(imap)
        ProcedureReturn
    EndIf

    ; Indicate that XOAUTH2 authentication is to be used:
    CkImap::setCkAuthMethod(imap, "XOAUTH2")

    ; Login
    ; Use the email address of the Yahoo Mail account that granted authorization.
    success = CkImap::ckLogin(imap,"user@yahoo.com",accessToken)
    If success <> 1
        Debug CkImap::ckLastErrorText(imap)
    Else
        Debug "Successfully authenticated with Yahoo IMAP using XOAUTH2!"
    EndIf

    ; Get the list of mailboxes.
    refName.s = ""
    wildcardedMailbox.s = "*"
    subscribed.i = 0

    mboxes.i = CkMailboxes::ckCreate()
    If mboxes.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkImap::ckMbxList(imap,subscribed,refName,wildcardedMailbox,mboxes)
    If success = 0
        Debug CkImap::ckLastErrorText(imap)
        CkJsonObject::ckDispose(json)
        CkImap::ckDispose(imap)
        CkMailboxes::ckDispose(mboxes)
        ProcedureReturn
    EndIf

    i.i = 0
    While i < CkMailboxes::ckCount(mboxes)
        Debug CkMailboxes::ckGetName(mboxes,i)
        i = i + 1
    Wend

    ; Sample output looks like this:

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

    ; Examine the session log
    Debug CkImap::ckSessionLog(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 = CkImap::ckDisconnect(imap)


    CkJsonObject::ckDispose(json)
    CkImap::ckDispose(imap)
    CkMailboxes::ckDispose(mboxes)


    ProcedureReturn
EndProcedure