(Tcl) POP3 GMail XOAUTH2 Authentication

Demonstrates using OAuth2 authentication with pop.gmail.com.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set mailman [new_CkMailMan]

CkMailMan_put_MailHost $mailman "pop.gmail.com"
CkMailMan_put_MailPort $mailman 995
CkMailMan_put_PopSsl $mailman 1

CkMailMan_put_PopUsername $mailman "my_account@gmail.com"

# If using OAuth2 authentication, leave the password empty.
CkMailMan_put_PopPassword $mailman ""

# Load our previously obtained OAuth2 access token.
# See Getting a GMail POP3 OAuth2 Access Token
set jsonToken [new_CkJsonObject]

set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/gmail_pop3.json"]
if {$success == 0} then {
    puts [CkJsonObject_lastErrorText $jsonToken]
    delete_CkMailMan $mailman
    delete_CkJsonObject $jsonToken
    exit
}

CkMailMan_put_OAuth2AccessToken $mailman [CkJsonObject_stringOf $jsonToken "access_token"]

# Make the TLS connection to the POP3 server.
set success [CkMailMan_Pop3Connect $mailman]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkJsonObject $jsonToken
    exit
}

# Authenticate..
set success [CkMailMan_Pop3Authenticate $mailman]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkJsonObject $jsonToken
    exit
}

# Find out how many emails are on the server..
set numEmails [CkMailMan_CheckMail $mailman]
if {$numEmails < 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkJsonObject $jsonToken
    exit
}

# Examine the POP3 session log:
puts [CkMailMan_pop3SessionLog $mailman]

# 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.
set success [CkMailMan_Pop3EndSession $mailman]
if {$success != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    delete_CkJsonObject $jsonToken
    exit
}

puts "-- Finished."

delete_CkMailMan $mailman
delete_CkJsonObject $jsonToken