Perl

Office365 POP3 Login with OAuth2 Authentication

See more Office365 Examples

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.

Perl

use chilkat();

$success = 0;

# 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 outlook.office365.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";