Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) 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.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoMailman Handle hoJsonToken Boolean iSuccess Integer iNumEmails String sTemp1 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatMailMan)) To hoMailman If (Not(IsComObjectCreated(hoMailman))) Begin Send CreateComObject of hoMailman End Set ComMailHost Of hoMailman To "outlook.office365.com" Set ComMailPort Of hoMailman To 995 Set ComPopSsl Of hoMailman To True // Use your O365 email address here. Set ComPopUsername Of hoMailman To "OFFICE365_EMAIL_ADDRESS" // When using OAuth2 authentication, leave the password empty. Set ComPopPassword Of hoMailman To "" // Load our previously obtained OAuth2 access token. Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken If (Not(IsComObjectCreated(hoJsonToken))) Begin Send CreateComObject of hoJsonToken End Get ComLoadFile Of hoJsonToken "qa_data/tokens/office365.json" To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoJsonToken To sTemp1 Showln sTemp1 Procedure_Return End Get ComStringOf Of hoJsonToken "access_token" To sTemp1 Set ComOAuth2AccessToken Of hoMailman To sTemp1 // Make the TLS connection to the outlook.office365.com POP3 server. Get ComPop3Connect Of hoMailman To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoMailman To sTemp1 Showln sTemp1 Procedure_Return End // Authenticate using XOAUTH2 Get ComPop3Authenticate Of hoMailman To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoMailman To sTemp1 Showln sTemp1 Procedure_Return End // Find out how many emails are on the server.. Get ComCheckMail Of hoMailman To iNumEmails If (iNumEmails < 0) Begin Get ComLastErrorText Of hoMailman To sTemp1 Showln sTemp1 Procedure_Return End // Examine the POP3 session log: Get ComPop3SessionLog Of hoMailman To sTemp1 Showln sTemp1 // 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. Get ComPop3EndSession Of hoMailman To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoMailman To sTemp1 Showln sTemp1 Procedure_Return End Showln "Finished." End_Procedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.