(VBScript) POP3 Auto-Refresh Office365 Access Token

See more Office365 Examples

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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
    ' 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 (mailman.IsPop3Connected = 1) Then

        ' Refresh the OAuth2 access token, and if successful, save the new (refreshed) access token and try authenticating again.
        ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.OAuth2")
        set oauth2 = CreateObject("Chilkat.OAuth2")

        ' Use your actual Directory (tenant) ID instead of "112d7ed6-71bf-4eba-a866-738364321bfc"
        oauth2.TokenEndpoint = "https://login.microsoftonline.com/112d7ed6-71bf-4eba-a866-738364321bfc/oauth2/v2.0/token"

        ' Replace these with your Azure App Registration's actual values.
        oauth2.ClientId = "CLIENT_ID"
        oauth2.ClientSecret = "CLIENT_SECRET"

        ' Get the "refresh_token"
        oauth2.RefreshToken = jsonToken.StringOf("refresh_token")

        ' Send the HTTP POST to refresh the access token..
        success = oauth2.RefreshAccessToken()
        If (success <> 1) Then
            outFile.WriteLine(oauth2.LastErrorText)
            WScript.Quit
        End If

        outFile.WriteLine("New access token: " & oauth2.AccessToken)
        outFile.WriteLine("New refresh token: " & oauth2.RefreshToken)

        ' Update the JSON with the new tokens.
        success = jsonToken.UpdateString("access_token",oauth2.AccessToken)
        success = jsonToken.UpdateString("refresh_token",oauth2.RefreshToken)

        ' Save the new JSON access token response to a file.
        ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
        set sbJson = CreateObject("Chilkat.StringBuilder")
        jsonToken.EmitCompact = 0
        success = jsonToken.EmitSb(sbJson)
        success = sbJson.WriteFile("qa_data/tokens/office365.json","utf-8",0)

        outFile.WriteLine("New Access Token = " & oauth2.AccessToken)

        ' Update the mailman with the new access token.
        mailman.OAuth2AccessToken = oauth2.AccessToken

        ' Retry the authentication.
        success = mailman.Pop3Authenticate()
        If (success = 0) Then
            outFile.WriteLine(mailman.LastErrorText)
            WScript.Quit
        End If

    Else
        outFile.WriteLine(mailman.LastErrorText)
        WScript.Quit
    End If

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. [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 = mailman.Pop3EndSession()
If (success <> 1) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Finished.")

outFile.Close