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
(VB.NET) Office365 IMAP List MailboxesSee more Office365 ExamplesList the Office365 IMAP mailboxes.
' 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. Dim jsonToken As New Chilkat.JsonObject Dim success As Boolean = jsonToken.LoadFile("qa_data/tokens/office365.json") If (success = False) Then Debug.WriteLine("Failed to open the office365 OAuth JSON file.") Exit Sub End If Dim imap As New Chilkat.Imap imap.Ssl = True imap.Port = 993 ' Connect to the Office365 IMAP server. success = imap.Connect("outlook.office365.com") If (success <> True) Then Debug.WriteLine(imap.LastErrorText) Exit Sub 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 <> True) Then Debug.WriteLine(imap.LastErrorText) Exit Sub End If Debug.WriteLine("O365 OAuth authentication is successful.") ' The ListMailboxes method returns a Mailboxes object ' that contains the collection of mailboxes. ' It accepts two arguments: a refName and a wildcardedMailbox. Dim refName As String = "" ' refName is usually set to an empty string. ' A non-empty reference name argument is the name of a mailbox or a level of ' mailbox hierarchy, and indicates the context in which the mailbox ' name is interpreted. ' Select all mailboxes matching this pattern: Dim wildcardedMailbox As String = "*" Dim mboxes As Chilkat.Mailboxes = imap.ListMailboxes(refName,wildcardedMailbox) If (imap.LastMethodSuccess = False) Then Debug.WriteLine(imap.LastErrorText) Exit Sub End If Dim i As Integer = 0 While i < mboxes.Count Debug.WriteLine(mboxes.GetName(i)) i = i + 1 End While ' 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() |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.