Dynamics Community Forum Thread Details

WhatsApp Integration in Business Central using Twilio

Hi, I'm trying to send WhatsApp message from Business Central through Twilio. But I'm unable to send message, getting error message while sending message. I'll attach my code, please help me find solution.

Thank you

Below attached is my code:

action("Send Test Message")
            {
                ApplicationArea = All;
                trigger OnAction()
                var
                    HttpClient: HttpClient;
                    HttpRequestMessage: HttpRequestMessage;
                    HttpResponseMessage: HttpResponseMessage;
                    Content: HttpContent;
                    JsonObject: JsonObject;
                    JsonText: Text;
                    RecWhatsAppSetup: Record SYNWhatsappSetup;
                    EncodedAuth: Text;
                    Headers: HttpHeaders;
                    Body: Text;
                    ErrorMessage: Text;
                    JsonToken: JsonToken;
                    AccountSID: Text;
                    URL: Text;
                begin
                    EncodedAuth := 'QUM0M2U2ZTAwMjljOTVlMWQ5MjMzMjliOTU1ODRmNWU1MjpiYTFhNWIzYzk3N2UxMmU2ZmU2MmZmZmJkZDMyZjUxMg==';
                    AccountSID := 'AC43e6e0029c95e1d923329b95584f5e52';
                    URL := 'https://api.twilio.com/2010-04-01/Accounts/AC43e6e0029c95e1d923329b95584f5e52/Messages.json';
                    HttpRequestMessage.SetRequestUri('https://api.twilio.com/2010-04-              01/Accounts/AC43e6e0029c95e1d923329b95584f5e52/Messages.json');
                    HttpRequestMessage.Method := 'POST';
                       HttpRequestMessage.GetHeaders(Headers);
                    Headers.Add('Authorization', 'Basic ' + Format(Base64Encode('AC43e6e0029c95e1d923329b95584f5e52:ba1a5b3c977e12e6fe62fffbdd32f512')));
                      JsonText := '{ "To": "whatsapp:' + ToNumber + '", "From": "whatsapp:' + FromNumber + '", "Body": "' + 'Hello from AL via Twilio WhatsApp!' + '" }';
                      Content.WriteFrom(JsonText);
                    Content.GetHeaders(Headers);
                    Headers.Clear();
                    Headers.Add('Content-Type', 'application/x-www-form-urlencoded');
                    HttpRequestMessage.Content := Content;
                      if HttpClient.Send(HttpRequestMessage, HttpResponseMessage) then begin
                        HttpResponseMessage.Content().ReadAs(JsonText);
                        if HttpResponseMessage.IsSuccessStatusCode() then
                            Message('Message sent successfully.')
                        else begin
                            Message('Error: ' + ErrorMessage);
                        end;
                    end else
                        Message('Failed to send request.');
                end;
            }