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
Dim queryParams As New ChilkatJsonObject
success = queryParams.UpdateString("profileName","Smith")
success = queryParams.UpdateString("givenName","Ann")
http.SetRequestHeader "x-app-key","{{AppKey}}"
http.SetRequestHeader "x-hotelid","{{HotelId}}"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequestParams("GET","https://domain.com/crm/v0/profiles",queryParams)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -G -d "profileName=Smith"
-d "givenName=Ann"
-H "Authorization: Bearer <access_token>"
-H "x-app-key: {{AppKey}}"
-H "x-hotelid: {{HotelId}}"
https://domain.com/crm/v0/profiles
Postman Collection Item JSON
{
"name": "02. Booking - getProfiles",
"request": {
"auth": {
"type": "bearer",
"bearer": [
{
"key": "token",
"value": "{{Token}}",
"type": "string"
}
]
},
"method": "GET",
"header": [
{
"key": "x-app-key",
"type": "text",
"value": "{{AppKey}}"
},
{
"key": "x-hotelid",
"type": "text",
"value": "{{HotelId}}"
}
],
"url": {
"raw": "{{HostName}}/crm/v0/profiles?profileName=Smith&givenName=Ann",
"host": [
"{{HostName}}"
],
"path": [
"crm",
"v0",
"profiles"
],
"query": [
{
"key": "profileName",
"value": "Smith"
},
{
"key": "givenName",
"value": "Ann"
},
{
"key": "profileType",
"value": "Guest",
"disabled": true
},
{
"key": "hotelId",
"value": "",
"disabled": true
},
{
"key": "limit",
"value": "3",
"disabled": true
},
{
"key": "city",
"value": "",
"disabled": true
},
{
"key": "state",
"value": "",
"disabled": true
},
{
"key": "postalCode",
"value": "",
"disabled": true
}
]
}
},
"response": [
]
}