(Xojo Plugin) Outlook -- List Attachments for a Specific Message

Demonstrates how to list the attachments for a particular email message.

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

This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http

// Use your previously obtained access token here:
// See the following examples for getting an access token:
//    Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint).
//    Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint).
//    Refresh Access Token (Azure AD v2.0 Endpoint).
//    Refresh Access Token (Azure AD Endpoint).

http.AuthToken = "MICROSOFT_GRAPH_ACCESS_TOKEN"

Dim sbResponse As New Chilkat.StringBuilder

// Sends:  GET /users/{user_id | userPrincipalName}/messages/{message_id}/attachments
// Note: It is also possible to use the literal string "me" for the current logged-on user.
// For example: GET /me/messages/{message_id}/attachments

http.ClearUrlVars 
Dim success As Boolean
success = http.SetUrlVar("userPrincipalName","chilkatsoft@outlook.com")

// Assume we already have a message ID from previously listing the messages in a folder
Dim messageId As String
messageId = "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQBGAAAAAAAu7cUXL5YOTrdsUIw7-v8FBwBUcG0qWqkmQYqWLHQataQxAACnwqJUAABUcG0qWqkmQYqWLHQataQxAACnwrnOAAA="
success = http.SetUrlVar("message_id",messageId)

// Send the request to list the messages.
Dim success As Boolean
success = http.QuickGetSb("https://graph.microsoft.com/v1.0/users/{$userPrincipalName}/messages/{$message_id}/attachments",sbResponse)
If ((success <> True) And (http.LastStatus = 0)) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim json As New Chilkat.JsonObject
success = json.LoadSb(sbResponse)
json.EmitCompact = False

System.DebugLog("Status code = " + Str(http.LastStatus))
If (http.LastStatus <> 200) Then
    System.DebugLog(json.Emit())
    System.DebugLog("Failed.")
End If

sbResponse.Clear 
success = json.EmitSb(sbResponse)
success = sbResponse.WriteFile("qa_output/attachments.txt","utf-8",False)

System.DebugLog("OK")