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
(Unicode C) POP3 Auto-Refresh Office365 Access TokenSee more Office365 ExamplesDemonstrates how to automatically recover from an expired OAuth2 access token when OAuth2 authentication fails in the POP3 protocol. If the server responds with "-ERR Authentication failure: unknown user name or bad password.", then we refresh the access token and retry.
#include <C_CkMailManW.h> #include <C_CkJsonObjectW.h> #include <C_CkOAuth2W.h> #include <C_CkStringBuilderW.h> void ChilkatSample(void) { HCkMailManW mailman; HCkJsonObjectW jsonToken; BOOL success; HCkOAuth2W oauth2; HCkStringBuilderW sbJson; int numEmails; // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. mailman = CkMailManW_Create(); CkMailManW_putMailHost(mailman,L"outlook.office365.com"); CkMailManW_putMailPort(mailman,995); CkMailManW_putPopSsl(mailman,TRUE); // Use your O365 email address here. CkMailManW_putPopUsername(mailman,L"OFFICE365_EMAIL_ADDRESS"); // When using OAuth2 authentication, leave the password empty. CkMailManW_putPopPassword(mailman,L""); // Load our previously obtained OAuth2 access token. jsonToken = CkJsonObjectW_Create(); success = CkJsonObjectW_LoadFile(jsonToken,L"qa_data/tokens/office365.json"); if (success == FALSE) { wprintf(L"%s\n",CkJsonObjectW_lastErrorText(jsonToken)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); return; } CkMailManW_putOAuth2AccessToken(mailman,CkJsonObjectW_stringOf(jsonToken,L"access_token")); // Make the TLS connection to the outlook.office365.com POP3 server. success = CkMailManW_Pop3Connect(mailman); if (success != TRUE) { wprintf(L"%s\n",CkMailManW_lastErrorText(mailman)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); return; } // Authenticate using XOAUTH2 success = CkMailManW_Pop3Authenticate(mailman); if (success != TRUE) { // If we're still connected to the mail server, then it means the server sent a non-success response, // Such as: -ERR Authentication failure: unknown user name or bad password. if (CkMailManW_getIsPop3Connected(mailman) == TRUE) { // Refresh the OAuth2 access token, and if successful, save the new (refreshed) access token and try authenticating again. oauth2 = CkOAuth2W_Create(); // Use your actual Directory (tenant) ID instead of "112d7ed6-71bf-4eba-a866-738364321bfc" CkOAuth2W_putTokenEndpoint(oauth2,L"https://login.microsoftonline.com/112d7ed6-71bf-4eba-a866-738364321bfc/oauth2/v2.0/token"); // Replace these with your Azure App Registration's actual values. CkOAuth2W_putClientId(oauth2,L"CLIENT_ID"); CkOAuth2W_putClientSecret(oauth2,L"CLIENT_SECRET"); // Get the "refresh_token" CkOAuth2W_putRefreshToken(oauth2,CkJsonObjectW_stringOf(jsonToken,L"refresh_token")); // Send the HTTP POST to refresh the access token.. success = CkOAuth2W_RefreshAccessToken(oauth2); if (success != TRUE) { wprintf(L"%s\n",CkOAuth2W_lastErrorText(oauth2)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); CkOAuth2W_Dispose(oauth2); return; } wprintf(L"New access token: %s\n",CkOAuth2W_accessToken(oauth2)); wprintf(L"New refresh token: %s\n",CkOAuth2W_refreshToken(oauth2)); // Update the JSON with the new tokens. CkJsonObjectW_UpdateString(jsonToken,L"access_token",CkOAuth2W_accessToken(oauth2)); CkJsonObjectW_UpdateString(jsonToken,L"refresh_token",CkOAuth2W_refreshToken(oauth2)); // Save the new JSON access token response to a file. sbJson = CkStringBuilderW_Create(); CkJsonObjectW_putEmitCompact(jsonToken,FALSE); CkJsonObjectW_EmitSb(jsonToken,sbJson); CkStringBuilderW_WriteFile(sbJson,L"qa_data/tokens/office365.json",L"utf-8",FALSE); wprintf(L"New Access Token = %s\n",CkOAuth2W_accessToken(oauth2)); // Update the mailman with the new access token. CkMailManW_putOAuth2AccessToken(mailman,CkOAuth2W_accessToken(oauth2)); // Retry the authentication. success = CkMailManW_Pop3Authenticate(mailman); if (success == FALSE) { wprintf(L"%s\n",CkMailManW_lastErrorText(mailman)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); CkOAuth2W_Dispose(oauth2); CkStringBuilderW_Dispose(sbJson); return; } } else { wprintf(L"%s\n",CkMailManW_lastErrorText(mailman)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); CkOAuth2W_Dispose(oauth2); CkStringBuilderW_Dispose(sbJson); return; } } // Find out how many emails are on the server.. numEmails = CkMailManW_CheckMail(mailman); if (numEmails < 0) { wprintf(L"%s\n",CkMailManW_lastErrorText(mailman)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); CkOAuth2W_Dispose(oauth2); CkStringBuilderW_Dispose(sbJson); return; } // Examine the POP3 session log: wprintf(L"%s\n",CkMailManW_pop3SessionLog(mailman)); // The POP3 session log will look something like this: // **** Connected to outlook.office365.com:995 // < +OK The Microsoft Exchange POP3 service is ready. [QwBIADIAUABSADEANgBDAEEAMAAwADEAMgAuAG4AYQBtAHAAcgBkADEANgAuAHAAcgBvAGQALgBvAHUAdABsAG8AbwBrAC4AYwBvAG0A] // > AUTH XOAUTH2 // < + // > <base64 string in XOAUTH2 format> // < -ERR Authentication failure: unknown user name or bad password. // > AUTH XOAUTH2 // < + // > <base64 string in XOAUTH2 format> // < +OK User successfully authenticated. // > STAT // < +OK 248 46637086 // End the POP3 session and close the connection to the GMail server. success = CkMailManW_Pop3EndSession(mailman); if (success != TRUE) { wprintf(L"%s\n",CkMailManW_lastErrorText(mailman)); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); CkOAuth2W_Dispose(oauth2); CkStringBuilderW_Dispose(sbJson); return; } wprintf(L"Finished.\n"); CkMailManW_Dispose(mailman); CkJsonObjectW_Dispose(jsonToken); CkOAuth2W_Dispose(oauth2); CkStringBuilderW_Dispose(sbJson); } |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.