![]() |
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
(Classic ASP) Office365 IMAP List MailboxesSee more Office365 ExamplesList the Office365 IMAP mailboxes.Note: This example requires Chilkat v11.0.0 or greater.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% success = 0 ' An Office365 OAuth2 access token must first be obtained prior ' to running this code. ' Getting the OAuth2 access token for the 1st time requires the O365 account owner's ' interactive authorizaition via a web browser. Afterwards, the access token ' can be repeatedly refreshed automatically. ' See the following examples for getting and refreshing an OAuth2 access token ' Get Office365 SMTP/IMAP/POP3 OAuth2 Access Token ' Refresh Office365 SMTP/IMAP/POP3 OAuth2 Access Token ' First get our previously obtained OAuth2 access token. set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/office365.json") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to open the office365 OAuth JSON file.") & "</pre>" Response.End End If set imap = Server.CreateObject("Chilkat.Imap") imap.Ssl = 1 imap.Port = 993 ' Connect to the Office365 IMAP server. success = imap.Connect("outlook.office365.com") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If ' Use OAuth2 authentication. imap.AuthMethod = "XOAUTH2" ' Login using our username (i.e. email address) and the access token for the password. success = imap.Login("OFFICE365_EMAIL_ADDRESS",jsonToken.StringOf("access_token")) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "O365 OAuth authentication is successful.") & "</pre>" ' Get the list of mailboxes. refName = "" wildcardedMailbox = "*" subscribed = 0 set mboxes = Server.CreateObject("Chilkat.Mailboxes") success = imap.MbxList(subscribed,refName,wildcardedMailbox,mboxes) If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( imap.LastErrorText) & "</pre>" Response.End End If i = 0 Do While i < mboxes.Count Response.Write "<pre>" & Server.HTMLEncode( mboxes.GetName(i)) & "</pre>" i = i + 1 Loop ' Sample output looks like this: ' Archive ' Calendar ' Calendar/Birthdays ' Calendar/United States holidays ' Contacts ' Conversation History ' Deleted Items ' Drafts ' INBOX ' INBOX/abc ' INBOX/misc ' INBOX/misc/birdeye ' INBOX/old ' INBOX/old/large ' INBOX/receipts ' Journal ' Junk Email ' Notes ' Outbox ' RSS Subscriptions ' Sent Items ' Sync Issues ' Sync Issues/Conflicts ' Sync Issues/Local Failures ' Sync Issues/Server Failures ' Tasks ' Trash ' Disconnect from the IMAP server. success = imap.Disconnect() %> </body> </html> |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.