VBA Макросы. Отправка сообщений из Excel в Whatsapp.

[Посетитель]

Подскажите, реально ли сделать отправку сообщений из Excel в Whatsapp?
Не спам, т.е. отправка с текущего номера на телефон из списка контактов.

[Посетитель]

Я нашел вариант через платный API:

Макрос

Sub Макрос()

    ' Первый параметр: номер телефона с кодом страны, кому пишем.
    ' Второй параметр: текст сообщения.
  ОтправитьСообщение "71112223344", "Привет"
 
End Sub

Sub ОтправитьСообщение(тел As String, msg As String)

    Dim INSTANCE_ID As String, CLIENT_ID As String, CLIENT_SECRET As String, API_URL As String
    Dim http As Object, body, response As String
   
   
    ' Здесь укажите ваши данные:
    INSTANCE_ID = "YOUR_INSTANCE_ID"
    CLIENT_ID = "YOUR_CLIENT_ID"
    CLIENT_SECRET = "YOUR_CLIENT_SECRET"
    API_URL = "http://api.whatsmate.net/v3/whatsapp/single/text/message/" & INSTANCE_ID
   
    body = "{""number"": """ & тел & """, ""message"": """ & msg & """}"
   
    Set http = CreateObject("Msxml2.XMLHTTP")
    http.Open "POST", API_URL, False
    http.setRequestHeader "Content-type", "application/json"
    http.setRequestHeader "X-WM-CLIENT-ID", CLIENT_ID
    http.setRequestHeader "X-WM-CLIENT-SECRET", CLIENT_SECRET
    http.Send body
   
    response = http.ResponseText
    MsgBox response

End Sub

[свернуть]