Delphi ActiveX

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.

Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
mailman: TChilkatMailMan;
jsonToken: TChilkatJsonObject;
numEmails: Integer;

begin
success := 0;

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

mailman := TChilkatMailMan.Create(Self);

mailman.MailHost := 'outlook.office365.com';
mailman.MailPort := 995;
mailman.PopSsl := 1;

// Use your O365 email address here.
mailman.PopUsername := 'OFFICE365_EMAIL_ADDRESS';

// When using OAuth2 authentication, leave the password empty.
mailman.PopPassword := '';

// Load our previously obtained OAuth2 access token.
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/office365.json');
if (success = 0) then
  begin
    Memo1.Lines.Add(jsonToken.LastErrorText);
    Exit;
  end;

mailman.OAuth2AccessToken := jsonToken.StringOf('access_token');

// Make the TLS connection to the outlook.office365.com POP3 server.
success := mailman.Pop3Connect();
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

// Authenticate using XOAUTH2
success := mailman.Pop3Authenticate();
if (success <> 1) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

// Find out how many emails are on the server..
numEmails := mailman.CheckMail();
if (numEmails < 0) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

// Examine the POP3 session log:
Memo1.Lines.Add(mailman.Pop3SessionLog);

// 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) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Finished.');
end;