(Lianja) Office365 POP3 Login with OAuth2 Authentication

See more Office365 Examples

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loMailman = createobject("CkMailMan")

loMailman.MailHost = "outlook.office365.com"
loMailman.MailPort = 995
loMailman.PopSsl = .T.

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

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

// Load our previously obtained OAuth2 access token.
loJsonToken = createobject("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/office365.json")
if (llSuccess = .F.) then
    ? loJsonToken.LastErrorText
    release loMailman
    release loJsonToken
    return
endif

loMailman.OAuth2AccessToken = loJsonToken.StringOf("access_token")

// Make the TLS connection to the outlook.office365.com POP3 server.
llSuccess = loMailman.Pop3Connect()
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
    release loMailman
    release loJsonToken
    return
endif

// Authenticate using XOAUTH2
llSuccess = loMailman.Pop3Authenticate()
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
    release loMailman
    release loJsonToken
    return
endif

// Find out how many emails are on the server..
lnNumEmails = loMailman.CheckMail()
if (lnNumEmails < 0) then
    ? loMailman.LastErrorText
    release loMailman
    release loJsonToken
    return
endif

// Examine the POP3 session log:
? loMailman.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.
llSuccess = loMailman.Pop3EndSession()
if (llSuccess <> .T.) then
    ? loMailman.LastErrorText
    release loMailman
    release loJsonToken
    return
endif

? "Finished."


release loMailman
release loJsonToken