![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) Office365 POP3 Login with OAuth2 AuthenticationSee more Office365 ExamplesDemonstrates how to authenticate using OAuth2 using the POP3 protocol with outlook.office365.com.Note: This example requires Chilkat v9.5.0.83 or greater.
IncludeFile "CkMailMan.pb" IncludeFile "CkJsonObject.pb" Procedure ChilkatExample() ; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. mailman.i = CkMailMan::ckCreate() If mailman.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkMailMan::setCkMailHost(mailman, "outlook.office365.com") CkMailMan::setCkMailPort(mailman, 995) CkMailMan::setCkPopSsl(mailman, 1) ; Use your O365 email address here. CkMailMan::setCkPopUsername(mailman, "OFFICE365_EMAIL_ADDRESS") ; When using OAuth2 authentication, leave the password empty. CkMailMan::setCkPopPassword(mailman, "") ; Load our previously obtained OAuth2 access token. jsonToken.i = CkJsonObject::ckCreate() If jsonToken.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/office365.json") If success = 0 Debug CkJsonObject::ckLastErrorText(jsonToken) CkMailMan::ckDispose(mailman) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndIf CkMailMan::setCkOAuth2AccessToken(mailman, CkJsonObject::ckStringOf(jsonToken,"access_token")) ; Make the TLS connection to the outlook.office365.com POP3 server. success = CkMailMan::ckPop3Connect(mailman) If success <> 1 Debug CkMailMan::ckLastErrorText(mailman) CkMailMan::ckDispose(mailman) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndIf ; Authenticate using XOAUTH2 success = CkMailMan::ckPop3Authenticate(mailman) If success <> 1 Debug CkMailMan::ckLastErrorText(mailman) CkMailMan::ckDispose(mailman) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndIf ; Find out how many emails are on the server.. numEmails.i = CkMailMan::ckCheckMail(mailman) If numEmails < 0 Debug CkMailMan::ckLastErrorText(mailman) CkMailMan::ckDispose(mailman) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndIf ; Examine the POP3 session log: Debug CkMailMan::ckPop3SessionLog(mailman) ; 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 = CkMailMan::ckPop3EndSession(mailman) If success <> 1 Debug CkMailMan::ckLastErrorText(mailman) CkMailMan::ckDispose(mailman) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndIf Debug "Finished." CkMailMan::ckDispose(mailman) CkJsonObject::ckDispose(jsonToken) ProcedureReturn EndProcedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.