![]() |
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
(VBScript) 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.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan") set mailman = CreateObject("Chilkat.MailMan") 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. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/office365.json") If (success = 0) Then outFile.WriteLine(jsonToken.LastErrorText) WScript.Quit End If mailman.OAuth2AccessToken = jsonToken.StringOf("access_token") ' Make the TLS connection to the outlook.office365.com POP3 server. success = mailman.Pop3Connect() If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If ' Authenticate using XOAUTH2 success = mailman.Pop3Authenticate() If (success <> 1) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If ' Find out how many emails are on the server.. numEmails = mailman.CheckMail() If (numEmails < 0) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If ' Examine the POP3 session log: outFile.WriteLine(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 outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If outFile.WriteLine("Finished.") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.