How to Send a Message by WhatsApp API using VB6
Last updated
Private Sub SendMessage()
Dim xml As Object
Dim strNumber As String, strMessage As String
Set xml = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim url As String
url = "https://gate.whapi.cloud/messages/text"
Dim apiKey As String
apiKey = "Your API Key Goes Here"
strNumber = "Recipient Number" 'Number should be in format countrycode+mobilenumber without + sign
strMessage = "This is My First Message"
Dim jsonBody As String
jsonBody = "{""to"":""" & strNumber & """,""body"":""" & strMessage & """}"
With xml
.Open "POST", url, False
.setRequestHeader "Authorization", "Bearer " & apiKey
.setRequestHeader "Content-Type", "application/json"
.send jsonBody
End With
If xml.Status = 200 Then
MsgBox "Message sent successfully: " & xml.responseText
Else
MsgBox "Error: " & xml.Status & " - " & xml.statusText & vbCrLf & xml.responseText
End If
Set xml = Nothing
End Sub