Xbase++

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.

Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oJsonToken
LOCAL nNumEmails

nSuccess := 0

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

oMailman := CreateObject("Chilkat.MailMan")

oMailman:MailHost := "outlook.office365.com"
oMailman:MailPort := 995
oMailman:PopSsl := 1

//  Use your O365 email address here.
oMailman:PopUsername := "OFFICE365_EMAIL_ADDRESS"

//  When using OAuth2 authentication, leave the password empty.
oMailman:PopPassword := ""

//  Load our previously obtained OAuth2 access token.
oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/office365.json")
IF (nSuccess == 0)
    ? oJsonToken:LastErrorText
    oMailman:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

oMailman:OAuth2AccessToken := oJsonToken:StringOf("access_token")

//  Make the TLS connection to the outlook.office365.com POP3 server.
nSuccess := oMailman:Pop3Connect()
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

//  Authenticate using XOAUTH2
nSuccess := oMailman:Pop3Authenticate()
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

//  Find out how many emails are on the server..
nNumEmails := oMailman:CheckMail()
IF (nNumEmails < 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

//  Examine the POP3 session log:
? oMailman:Pop3SessionLog

//  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.
nSuccess := oMailman:Pop3EndSession()
IF (nSuccess != 1)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

? "Finished."

oMailman:destroy()
oJsonToken:destroy()