(PureBasic) WhatsApp Cloud API Send Message

See more WhatsApp Examples

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ; The following JSON is sent in the request body.

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

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"messaging_product","whatsapp")
    CkJsonObject::ckUpdateString(json,"to","15555555555")
    CkJsonObject::ckUpdateString(json,"type","template")
    CkJsonObject::ckUpdateString(json,"template.name","hello_world")
    CkJsonObject::ckUpdateString(json,"template.language.code","en_US")

    CkHttp::setCkAuthToken(http, "EAANrS5....yFB9Ma")
    CkHttp::ckSetRequestHeader(http,"Content-Type","application/json")

    resp.i = CkHttp::ckPostJson3(http,"https://graph.facebook.com/v18.0/111111111111111/messages","application/json",json)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    Debug Str(CkHttpResponse::ckStatusCode(resp))
    Debug CkHttpResponse::ckBodyStr(resp)
    CkHttpResponse::ckDispose(resp)

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

    ; 


    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure