Я нашел вариант через платный 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