Chilkat Online Tools

VB6 / Microsoft Graph / Put item

Back to Collection Items

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

Dim http As New ChilkatHttp
Dim success As Long

' Use this online tool to generate code from sample JSON: Generate Code to Create JSON

' The following JSON is sent in the request body.

' {
'   "acl": [
'     {
'       "type": "everyone",
'       "value": "c5f19b2d-0a77-454a-9b43-abf298c3b34e",
'       "accessType": "grant"
'     }
'   ],
'   "properties": {
'     "title": "Sample item title",
'     "extension": "docx",
'     "createdBy": "John Doe",
'     "createdDateTime": "2021-04-27T11:04:00Z",
'     "iconUrl": "https://contentdepot.blob.core.windows.net/filedepot/sampleIconUrl.png",
'     "authors": [
'       "John Doe"
'     ],
'     "authors@odata.type": "Collection(String)",
'     "lastModifiedDate": "2021-04-27T11:04:00Z",
'     "url": "https://sampleItemUrl.com",
'     "containerName": "Sample container name",
'     "containerUrl": "https://sampleContainerUrl.com"
'   },
'   "content": {
'     "type": "text",
'     "value": "Empower customers and partners to be more productive by enabling them to bring content and activity information and allow external content to participate in Microsoft Search and OfficeHub experiences so that they find relevant and actionable information across all their applications."
'   }
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("acl[0].type","everyone")
success = json.UpdateString("acl[0].value","c5f19b2d-0a77-454a-9b43-abf298c3b34e")
success = json.UpdateString("acl[0].accessType","grant")
success = json.UpdateString("properties.title","Sample item title")
success = json.UpdateString("properties.extension","docx")
success = json.UpdateString("properties.createdBy","John Doe")
success = json.UpdateString("properties.createdDateTime","2021-04-27T11:04:00Z")
success = json.UpdateString("properties.iconUrl","https://contentdepot.blob.core.windows.net/filedepot/sampleIconUrl.png")
success = json.UpdateString("properties.authors[0]","John Doe")
success = json.UpdateString("properties.""authors@odata.type""","Collection(String)")
success = json.UpdateString("properties.lastModifiedDate","2021-04-27T11:04:00Z")
success = json.UpdateString("properties.url","https://sampleItemUrl.com")
success = json.UpdateString("properties.containerName","Sample container name")
success = json.UpdateString("properties.containerUrl","https://sampleContainerUrl.com")
success = json.UpdateString("content.type","text")
success = json.UpdateString("content.value","Empower customers and partners to be more productive by enabling them to bring content and activity information and allow external content to participate in Microsoft Search and OfficeHub experiences so that they find relevant and actionable information across all their applications.")

' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Content-Type","application/json"

Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("PUT","https://graph.microsoft.com/v1.0/external/connections/sampleConnectionId/items/sampleItemId",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X PUT
	-H "Authorization: Bearer <access_token>"
	-H "Content-Type: application/json"
	-d '{
    "acl": [
        {
            "type": "everyone",
            "value": "c5f19b2d-0a77-454a-9b43-abf298c3b34e",
            "accessType": "grant"
        }
    ],
    "properties": {
        "title": "Sample item title",
        "extension": "docx",
        "createdBy": "John Doe",
        "createdDateTime": "2021-04-27T11:04:00Z",
        "iconUrl": "https://contentdepot.blob.core.windows.net/filedepot/sampleIconUrl.png",
        "authors": [
            "John Doe"
        ],
        "authors@odata.type": "Collection(String)",
        "lastModifiedDate": "2021-04-27T11:04:00Z",
        "url": "https://sampleItemUrl.com",
        "containerName": "Sample container name",
        "containerUrl": "https://sampleContainerUrl.com"
    },
    "content": {
        "type": "text",
        "value": "Empower customers and partners to be more productive by enabling them to bring content and activity information and allow external content to participate in Microsoft Search and OfficeHub experiences so that they find relevant and actionable information across all their applications."
    }
}'
https://graph.microsoft.com/v1.0/external/connections/sampleConnectionId/items/sampleItemId

Postman Collection Item JSON

{
  "name": "Put item",
  "event": [
    {
      "listen": "test",
      "script": {
        "exec": [
          ""
        ],
        "type": "text/javascript"
      }
    }
  ],
  "request": {
    "method": "PUT",
    "header": [
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "type": "text",
        "value": "application/json"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\r\n    \"acl\": [\r\n        {\r\n            \"type\": \"everyone\",\r\n            \"value\": \"c5f19b2d-0a77-454a-9b43-abf298c3b34e\",\r\n            \"accessType\": \"grant\"\r\n        }\r\n    ],\r\n    \"properties\": {\r\n        \"title\": \"Sample item title\",\r\n        \"extension\": \"docx\",\r\n        \"createdBy\": \"John Doe\",\r\n        \"createdDateTime\": \"2021-04-27T11:04:00Z\",\r\n        \"iconUrl\": \"https://contentdepot.blob.core.windows.net/filedepot/sampleIconUrl.png\",\r\n        \"authors\": [\r\n            \"John Doe\"\r\n        ],\r\n        \"authors@odata.type\": \"Collection(String)\",\r\n        \"lastModifiedDate\": \"2021-04-27T11:04:00Z\",\r\n        \"url\": \"https://sampleItemUrl.com\",\r\n        \"containerName\": \"Sample container name\",\r\n        \"containerUrl\": \"https://sampleContainerUrl.com\"\r\n    },\r\n    \"content\": {\r\n        \"type\": \"text\",\r\n        \"value\": \"Empower customers and partners to be more productive by enabling them to bring content and activity information and allow external content to participate in Microsoft Search and OfficeHub experiences so that they find relevant and actionable information across all their applications.\"\r\n    }\r\n}"
    },
    "url": {
      "raw": "https://graph.microsoft.com/v1.0/external/connections/sampleConnectionId/items/sampleItemId",
      "protocol": "https",
      "host": [
        "graph",
        "microsoft",
        "com"
      ],
      "path": [
        "v1.0",
        "external",
        "connections",
        "sampleConnectionId",
        "items",
        "sampleItemId"
      ]
    }
  },
  "response": [
  ]
}