Visual FoxPro

POP3 GMail XOAUTH2 Authentication

See more GMail SMTP/IMAP/POP Examples

Demonstrates using OAuth2 authentication with pop.gmail.com.

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

Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loJsonToken
LOCAL lnNumEmails

lnSuccess = 0

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

loMailman = CreateObject('Chilkat.MailMan')

loMailman.MailHost = "pop.gmail.com"
loMailman.MailPort = 995
loMailman.PopSsl = 1

loMailman.PopUsername = "my_account@gmail.com"

*  If using OAuth2 authentication, leave the password empty.
loMailman.PopPassword = ""

*  Load our previously obtained OAuth2 access token.
*  See Getting a GMail POP3 OAuth2 Access Token
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/gmail_pop3.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 POP3 server.
lnSuccess = loMailman.Pop3Connect()
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loJsonToken
    CANCEL
ENDIF

*  Authenticate..
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 Gpop ready for requests from 87.9.200.42 l16mb86351205iok
*  > AUTH XOAUTH2 dXNlcj1....VaMDJFAQE=
*  < +OK Welcome.
*  > STAT
*  < +OK 301 1627357
*  
*  -- Finished.

*  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