PureBasic

Office365 POP3 Login with OAuth2 Authentication

See more Office365 Examples

Demonstrates how to authenticate using OAuth2 using the POP3 protocol with outlook.office365.com.

Note: This example requires Chilkat v9.5.0.83 or greater.

PureBasic

IncludeFile "CkMailMan.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    success.i = 0

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

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

    CkMailMan::setCkMailHost(mailman, "outlook.office365.com")
    CkMailMan::setCkMailPort(mailman, 995)
    CkMailMan::setCkPopSsl(mailman, 1)

    ; Use your O365 email address here.
    CkMailMan::setCkPopUsername(mailman, "OFFICE365_EMAIL_ADDRESS")

    ; When using OAuth2 authentication, leave the password empty.
    CkMailMan::setCkPopPassword(mailman, "")

    ; Load our previously obtained OAuth2 access token.
    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/office365.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(jsonToken)
        CkMailMan::ckDispose(mailman)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    CkMailMan::setCkOAuth2AccessToken(mailman, CkJsonObject::ckStringOf(jsonToken,"access_token"))

    ; Make the TLS connection to the outlook.office365.com POP3 server.
    success = CkMailMan::ckPop3Connect(mailman)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    ; Authenticate using XOAUTH2
    success = CkMailMan::ckPop3Authenticate(mailman)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    ; Find out how many emails are on the server..
    numEmails.i = CkMailMan::ckCheckMail(mailman)
    If numEmails < 0
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    ; Examine the POP3 session log:
    Debug CkMailMan::ckPop3SessionLog(mailman)

    ; The POP3 session log will look something like this:

    ; **** Connected to outlook.office365.com:995
    ; < +OK The Microsoft Exchange POP3 service is ready. [QwBIADIAUABSADEAOABD...YwBvAG0A]
    ; > AUTH XOAUTH2
    ; < + 
    ; > <base64 string in XOAUTH2 format>
    ; < +OK User successfully authenticated.
    ; > STAT
    ; < +OK 3 375302

    ; End the POP3 session and close the connection to the GMail server.
    success = CkMailMan::ckPop3EndSession(mailman)
    If success <> 1
        Debug CkMailMan::ckLastErrorText(mailman)
        CkMailMan::ckDispose(mailman)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    Debug "Finished."


    CkMailMan::ckDispose(mailman)
    CkJsonObject::ckDispose(jsonToken)


    ProcedureReturn
EndProcedure