Give this a try:
Code:
Sub PostIt()
Dim objReq As Object
Set objReq = CreateObject("MSXML2.ServerXMLHTTP")
Dim postBody As String
postBody = _
"{" & _
"""apikey"": ""WRITE_API_KEY_HERE""," & _
"""number"": ""09998887777""," & _
"""message"": ""I just sent my first message with Semaphore""," & _
"""sendername"": ""SEMAPHORE""" & _
"}"
With objReq
.Open "POST", "https://semaphore.co/api/v4/messages", False
.setRequestHeader "Content-Type", "application/json"
.Send postBody
MsgBox .responseText
End With
Set objReq = Nothing
End Sub