VBScript

Outlook -- List Attachments for a Specific Message

See more Outlook Examples

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

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set http = CreateObject("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"

set sbResponse = CreateObject("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 
success = http.SetUrlVar("userPrincipalName","chilkatsoft@outlook.com")

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

' Send the request to list the messages.
success = http.QuickGetSb("https://graph.microsoft.com/v1.0/users/{$userPrincipalName}/messages/{$message_id}/attachments",sbResponse)
If ((success <> 1) And (http.LastStatus = 0)) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set json = CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sbResponse)
json.EmitCompact = 0

outFile.WriteLine("Status code = " & http.LastStatus)
If (http.LastStatus <> 200) Then
    outFile.WriteLine(json.Emit())
    outFile.WriteLine("Failed.")
End If

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

outFile.WriteLine("OK")

outFile.Close