(VB.NET UWP/WinRT) Office365 POP3 Login with OAuth2 Authentication

Demonstrates how to authenticate using OAuth2 using the POP3 protocol with outlook.office365.com.

Note: This example requires Chilkat v9.5.0.83 or greater.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim mailman As New Chilkat.MailMan

mailman.MailHost = "outlook.office365.com"
mailman.MailPort = 995
mailman.PopSsl = True

' 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.
Dim jsonToken As New Chilkat.JsonObject
Dim success As Boolean = jsonToken.LoadFile("qa_data/tokens/office365.json")
If (success = False) Then
    Debug.WriteLine(jsonToken.LastErrorText)
    Exit Sub
End If


mailman.OAuth2AccessToken = jsonToken.StringOf("access_token")

' Make the TLS connection to the outlook.office365.com POP3 server.
success = Await mailman.Pop3ConnectAsync()
If (success <> True) Then
    Debug.WriteLine(mailman.LastErrorText)
    Exit Sub
End If


' Authenticate using XOAUTH2
success = Await mailman.Pop3AuthenticateAsync()
If (success <> True) Then
    Debug.WriteLine(mailman.LastErrorText)
    Exit Sub
End If


' Find out how many emails are on the server..
Dim numEmails As Integer = Await mailman.CheckMailAsync()
If (numEmails < 0) Then
    Debug.WriteLine(mailman.LastErrorText)
    Exit Sub
End If


' Examine the POP3 session log:
Debug.WriteLine(mailman.Pop3SessionLog)

' 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.
success = Await mailman.Pop3EndSessionAsync()
If (success <> True) Then
    Debug.WriteLine(mailman.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Finished.")