Tcl

WhatsApp Cloud API Send Message

See more WhatsApp Examples

Demonstrates how to send a message using the WhatsApp Cloud API (Business App) Tcl

load ./chilkat.dll

set success 0

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

set http [new_CkHttp]

# The following JSON is sent in the request body.

# {
#   "messaging_product": "whatsapp",
#   "to": "16302581871",
#   "type": "template",
#   "template": {
#     "name": "hello_world",
#     "language": {
#       "code": "en_US"
#     }
#   }
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "messaging_product" "whatsapp"
CkJsonObject_UpdateString $json "to" "15555555555"
CkJsonObject_UpdateString $json "type" "template"
CkJsonObject_UpdateString $json "template.name" "hello_world"
CkJsonObject_UpdateString $json "template.language.code" "en_US"

CkHttp_put_AuthToken $http "EAANrS5....yFB9Ma"
CkHttp_SetRequestHeader $http "Content-Type" "application/json"

set resp [new_CkHttpResponse]

set success [CkHttp_HttpJson $http "POST" "https://graph.facebook.com/v18.0/111111111111111/messages" $json "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkHttpResponse $resp
    exit
}

puts [CkHttpResponse_get_StatusCode $resp]
puts [CkHttpResponse_bodyStr $resp]

# Here's a screenshot of our WhatsApp test app.

# 

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkHttpResponse $resp