(PowerBuilder) Office365 IMAP with OAuth2 Authentication

See more Office365 Examples

Demonstrates how to authenticate using OAuth2 with outlook.office365.com.

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

integer li_rc
oleobject loo_JsonToken
integer li_Success
oleobject loo_Imap

// 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.
loo_JsonToken = create oleobject
li_rc = loo_JsonToken.ConnectToNewObject("Chilkat_9_5_0.JsonObject")
if li_rc < 0 then
    destroy loo_JsonToken
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_JsonToken.LoadFile("qa_data/tokens/office365.json")
if li_Success = 0 then
    Write-Debug "Failed to open the office365 OAuth JSON file."
    destroy loo_JsonToken
    return
end if

loo_Imap = create oleobject
li_rc = loo_Imap.ConnectToNewObject("Chilkat_9_5_0.Imap")

loo_Imap.Ssl = 1
loo_Imap.Port = 993

// Connect to the Office365 IMAP server.
li_Success = loo_Imap.Connect("outlook.office365.com")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_JsonToken
    destroy loo_Imap
    return
end if

// Use OAuth2 authentication.
loo_Imap.AuthMethod = "XOAUTH2"

// Login using our username (i.e. email address) and the access token for the password.
li_Success = loo_Imap.Login("OFFICE365_EMAIL_ADDRESS",loo_JsonToken.StringOf("access_token"))
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_JsonToken
    destroy loo_Imap
    return
end if

Write-Debug "O365 OAuth authentication is successful."

// Do something...
li_Success = loo_Imap.SelectMailbox("Inbox")
if li_Success <> 1 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_JsonToken
    destroy loo_Imap
    return
end if

// Your application can continue to do other things in the IMAP session....

// When finished, logout and close the connection.
li_Success = loo_Imap.Logout()
li_Success = loo_Imap.Disconnect()

Write-Debug "Finished."


destroy loo_JsonToken
destroy loo_Imap