REST api POST method (1 Viewer)

irade92

Registered User.
Local time
Today, 04:48
Joined
Dec 26, 2010
Messages
229
Hi
I am trying to POST some parameters to a server but with no result
Here is my code

Private Sub POST_PRIMER()
Dim XMLHTTP
Dim Rezult As String
Dim ArgumentString
ArgumentString = "prescription_code=oz10763&exemp_from_participation=false&pharmacist_facsimile=913189&drug_fund_code=965421"
Set XMLHTTP = CreateObject("msxml2.xmlhttp.6.0")
XMLHTTP.Open "post", "https://api.zdravstvo.gov.mk/rest/prescriptions/realize", False

XMLHTTP.setRequestHeader "Content-Type", "application/xml"
XMLHTTP.send ArgumentString
result = XMLHTTP.responseText
Set XMLHTTP = Nothing
End Sub

Where I am making mistake?
Please help
 

Users who are viewing this thread

Top Bottom