(PowerBuilder) POP3 GMail XOAUTH2 Authentication

Demonstrates using OAuth2 authentication with pop.gmail.com.

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

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

integer li_rc
oleobject loo_Mailman
oleobject loo_JsonToken
integer li_Success
integer li_NumEmails

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

loo_Mailman = create oleobject
// Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_Mailman.PopUsername = "my_account@gmail.com"

// If using OAuth2 authentication, leave the password empty.
loo_Mailman.PopPassword = ""

// Load our previously obtained OAuth2 access token.
// See Getting a GMail POP3 OAuth2 Access Token
loo_JsonToken = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_JsonToken.LoadFile("qa_data/tokens/gmail_pop3.json")
if li_Success = 0 then
    Write-Debug loo_JsonToken.LastErrorText
    destroy loo_Mailman
    destroy loo_JsonToken
    return
end if

loo_Mailman.OAuth2AccessToken = loo_JsonToken.StringOf("access_token")

// Make the TLS connection to the POP3 server.
li_Success = loo_Mailman.Pop3Connect()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_JsonToken
    return
end if

// Authenticate..
li_Success = loo_Mailman.Pop3Authenticate()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_JsonToken
    return
end if

// Find out how many emails are on the server..
li_NumEmails = loo_Mailman.CheckMail()
if li_NumEmails < 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_JsonToken
    return
end if

// Examine the POP3 session log:
Write-Debug loo_Mailman.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.
li_Success = loo_Mailman.Pop3EndSession()
if li_Success <> 1 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_JsonToken
    return
end if

Write-Debug "-- Finished."


destroy loo_Mailman
destroy loo_JsonToken