(DataFlex) WhatsApp Cloud API Send Message

See more WhatsApp Examples

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Boolean iSuccess
    Variant vJson
    Handle hoJson
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

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

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "messaging_product" "whatsapp" To iSuccess
    Get ComUpdateString Of hoJson "to" "15555555555" To iSuccess
    Get ComUpdateString Of hoJson "type" "template" To iSuccess
    Get ComUpdateString Of hoJson "template.name" "hello_world" To iSuccess
    Get ComUpdateString Of hoJson "template.language.code" "en_US" To iSuccess

    Set ComAuthToken Of hoHttp To "EAANrS5....yFB9Ma"
    Send ComSetRequestHeader To hoHttp "Content-Type" "application/json"

    Get pvComObject of hoJson to vJson
    Get ComPostJson3 Of hoHttp "https://graph.facebook.com/v18.0/111111111111111/messages" "application/json" vJson To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    Showln iTemp1
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1
    Send Destroy of hoResp

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

    // 


End_Procedure