Chilkat Online Tools

VB6 / ORACLE Hospitality OPERA Cloud REST API Workflows / Create a new Guest Messages

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.

' {
'   "reservationIdList": [
'     {
'       "type": "Reservation",
'       "id": "{{ReservationId}}"
'     }
'   ],
'   "guestMessages": [
'     {
'       "message": {
'         "messageText": "Kate Oracle phoned, please call her back.",
'         "messageDate": "2021-12-26 03:27:53.0",
'         "typeOfMessage": "Tm",
'         "recipient": "Smith, Kate"
'       },
'       "delivery": {
'         "deliveryStatus": "Mr"
'       }
'     }
'   ],
'   "hotelId": "{{HotelId}}"
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("reservationIdList[0].type","Reservation")
success = json.UpdateString("reservationIdList[0].id","{{ReservationId}}")
success = json.UpdateString("guestMessages[0].message.messageText","Kate Oracle phoned, please call her back.")
success = json.UpdateString("guestMessages[0].message.messageDate","2021-12-26 03:27:53.0")
success = json.UpdateString("guestMessages[0].message.typeOfMessage","Tm")
success = json.UpdateString("guestMessages[0].message.recipient","Smith, Kate")
success = json.UpdateString("guestMessages[0].delivery.deliveryStatus","Mr")
success = json.UpdateString("hotelId","{{HotelId}}")

http.SetRequestHeader "Content-Type","application/json"
http.SetRequestHeader "x-app-key","{{AppKey}}"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "x-hotelId","{{HotelId}}"

Dim resp As ChilkatHttpResponse
Set resp = http.PostJson3("https://domain.com/rsv/v0/hotels/{{HotelId}}/reservations/{{ReservationId}}/guestMessages","application/json",json)
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>"
	-H "Content-Type: application/json"
	-H "x-app-key: {{AppKey}}"
	-H "x-hotelId: {{HotelId}}"
	-d '{
    "reservationIdList": [
        {
            "type": "Reservation",
            "id": "{{ReservationId}}"
        }
    ],
    "guestMessages": [
        {
            "message": {
                "messageText": "Kate Oracle phoned, please call her back.",
                "messageDate": "2021-12-26 03:27:53.0",
                "typeOfMessage": "Tm",
                "recipient": "Smith, Kate"
            },
            "delivery": {
                "deliveryStatus": "Mr"
            }
        }
    ],
    "hotelId": "{{HotelId}}"
}'
https://domain.com/rsv/v0/hotels/{{HotelId}}/reservations/{{ReservationId}}/guestMessages

Postman Collection Item JSON

{
  "name": "Create a new Guest Messages",
  "request": {
    "auth": {
      "type": "bearer",
      "bearer": [
        {
          "key": "token",
          "value": "{{Token}}",
          "type": "string"
        }
      ]
    },
    "method": "POST",
    "header": [
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "type": "text",
        "value": "application/json"
      },
      {
        "key": "x-app-key",
        "type": "text",
        "value": "{{AppKey}}"
      },
      {
        "key": "x-hotelId",
        "type": "text",
        "value": "{{HotelId}}"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\r\n    \"reservationIdList\": [\r\n        {\r\n            \"type\": \"Reservation\",\r\n            \"id\": \"{{ReservationId}}\"\r\n        }\r\n    ],\r\n    \"guestMessages\": [\r\n        {\r\n            \"message\": {\r\n                \"messageText\": \"Kate Oracle phoned, please call her back.\",\r\n                \"messageDate\": \"2021-12-26 03:27:53.0\",\r\n                \"typeOfMessage\": \"Tm\",\r\n                \"recipient\": \"Smith, Kate\"\r\n            },\r\n            \"delivery\": {\r\n                \"deliveryStatus\": \"Mr\"\r\n            }\r\n        }\r\n    ],\r\n    \"hotelId\": \"{{HotelId}}\"\r\n}",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{HostName}}/rsv/v0/hotels/{{HotelId}}/reservations/{{ReservationId}}/guestMessages",
      "host": [
        "{{HostName}}"
      ],
      "path": [
        "rsv",
        "v0",
        "hotels",
        "{{HotelId}}",
        "reservations",
        "{{ReservationId}}",
        "guestMessages"
      ]
    }
  },
  "response": [
  ]
}