Xbase++

WhatsApp Cloud API Send Message

See more WhatsApp Examples

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

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oResp

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  The following JSON is sent in the request body.

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

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("messaging_product", "whatsapp")
oJson:UpdateString("to", "15555555555")
oJson:UpdateString("type", "template")
oJson:UpdateString("template.name", "hello_world")
oJson:UpdateString("template.language.code", "en_US")

oHttp:AuthToken := "EAANrS5....yFB9Ma"
oHttp:SetRequestHeader("Content-Type", "application/json")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://graph.facebook.com/v18.0/111111111111111/messages", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

? Str(oResp:StatusCode)
? oResp:BodyStr

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

//  

oHttp:destroy()
oJson:destroy()
oResp:destroy()