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 XML: Generate Code to Create XML
' The following XML is sent in the request body.
' <?xml version="1.0" encoding="utf-8"?>
' <comment>
' <comments>TEST TEXT</comments>
' </comment>
'
Dim xml As New ChilkatXml
xml.Tag = "comment"
xml.UpdateChildContent "comments","TEST TEXT"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim sbRequestBody As New ChilkatStringBuilder
success = xml.GetXmlSb(sbRequestBody)
Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("POST","https://domain.com/purchase_orders/:id/comments?fields=[""id""]",sbRequestBody,"utf-8","application/xml",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 POST
-H "Authorization: Bearer <access_token>"
-d '<comment>
<comments>TEST TEXT</comments>
</comment>'
https://domain.com/purchase_orders/:id/comments?fields=["id"]
Postman Collection Item JSON
{
"name": "Add Comments to PO",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<comment>\n <comments>TEST TEXT</comments>\n</comment>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{URL}}/purchase_orders/:id/comments?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"purchase_orders",
":id",
"comments"
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
],
"variable": [
{
"key": "id",
"value": "3238"
}
]
}
},
"response": [
]
}