(Visual FoxPro) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL loJsonToken
LOCAL lnSuccess
LOCAL lnNumEmails

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

loMailman = CreateObject('Chilkat_9_5_0.MailMan')

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

* 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('Chilkat_9_5_0.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/office365.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loMailman
    RELEASE loJsonToken
    CANCEL
ENDIF

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

* Make the TLS connection to the outlook.office365.com POP3 server.
lnSuccess = loMailman.Pop3Connect()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loJsonToken
    CANCEL
ENDIF

* Authenticate using XOAUTH2
lnSuccess = loMailman.Pop3Authenticate()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loJsonToken
    CANCEL
ENDIF

* Find out how many emails are on the server..
lnNumEmails = loMailman.CheckMail()
IF (lnNumEmails < 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loJsonToken
    CANCEL
ENDIF

* Examine the POP3 session log:
? loMailman.Pop3SessionLog

* The POP3 session log will look something like this:

* **** Connected to pop.gmail.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.
lnSuccess = loMailman.Pop3EndSession()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loJsonToken
    CANCEL
ENDIF

? "Finished."

RELEASE loMailman
RELEASE loJsonToken