(Tcl) WhatsApp Cloud API Send Message

See more WhatsApp Examples

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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"

# resp is a CkHttpResponse
set resp [CkHttp_PostJson3 $http "https://graph.facebook.com/v18.0/111111111111111/messages" "application/json" $json]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    exit
}

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

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

# 

delete_CkHttp $http
delete_CkJsonObject $json