(Perl) Office365 POP3 Login with OAuth2 Authentication

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 Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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

$mailman = chilkat::CkMailMan->new();

$mailman->put_MailHost("outlook.office365.com");
$mailman->put_MailPort(995);
$mailman->put_PopSsl(1);

# Use your O365 email address here.
$mailman->put_PopUsername("OFFICE365_EMAIL_ADDRESS");

# When using OAuth2 authentication, leave the password empty.
$mailman->put_PopPassword("");

# Load our previously obtained OAuth2 access token.
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/office365.json");
if ($success == 0) {
    print $jsonToken->lastErrorText() . "\r\n";
    exit;
}

$mailman->put_OAuth2AccessToken($jsonToken->stringOf("access_token"));

# Make the TLS connection to the outlook.office365.com POP3 server.
$success = $mailman->Pop3Connect();
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# Authenticate using XOAUTH2
$success = $mailman->Pop3Authenticate();
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

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

# Examine the POP3 session log:
print $mailman->pop3SessionLog() . "\r\n";

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

print "Finished." . "\r\n";