B4X

WhatsApp Cloud API Send Message

See more WhatsApp Examples

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

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("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"
'      }
'    }
'  }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("messaging_product", "whatsapp")
json.UpdateString("to", "15555555555")
json.UpdateString("type", "template")
json.UpdateString("template.name", "hello_world")
json.UpdateString("template.language.code", "en_US")

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

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", "https://graph.facebook.com/v18.0/111111111111111/messages", json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log(resp.StatusCode)
Log(resp.BodyStr)

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

'