Perl Requires Chilkat v9.5.0.83+

POP3 GMail XOAUTH2 Authentication

See more GMail SMTP/IMAP/POP Examples

Demonstrates using OAuth2 authentication with pop.gmail.com. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $mailman = Chilkat2::MailMan->new;

$mailman->MailHost('pop.gmail.com');
$mailman->MailPort(995);
$mailman->PopSsl(1);

$mailman->PopUsername('my_account@gmail.com');

# If using OAuth2 authentication, leave the password empty.
$mailman->PopPassword('');

# Load our previously obtained OAuth2 access token.
# See Getting a GMail POP3 OAuth2 Access Token
my $jsonToken = Chilkat2::JsonObject->new;
my $success = $jsonToken->LoadFile('qa_data/tokens/gmail_pop3.json');
if (!$success) {
    print $jsonToken->LastErrorText, "\n";
    exit;
}

$mailman->OAuth2AccessToken($jsonToken->StringOf('access_token'));

# Make the TLS connection to the POP3 server.
$success = $mailman->Pop3Connect();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

# Authenticate..
$success = $mailman->Pop3Authenticate();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

# Find out how many emails are on the server..
my $numEmails = $mailman->CheckMail();
if ($numEmails < 0) {
    print $mailman->LastErrorText, "\n";
    exit;
}

# Examine the POP3 session log:
print $mailman->Pop3SessionLog, "\n";

# 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.
$success = $mailman->Pop3EndSession();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

print "-- Finished.\n";