I am trying to solve this:
Dim xml As String
Dim req As New XMLHTTP60
Dim resp As New DOMDocument60
xml = "<?xml version='1.0' encoding='UTF-8' ?>" & vbNewLine _
& "<root>" & vbNewLine _
& "<SecurityKey>633862AD-22B0-4813-93A0-
555DA24659DD</SecurityKey>" & vbNewLine _
& "<Username>" & "MY_WORKSHOP" & "</Username>" & vbNewLine _
& "<Password>" & "MY_PASS11" & "</Password>" & vbNewLine _
& "<InvoiceNumber>" & "40197" & "</InvoiceNumber>" & vbNewLine _
& "<InvoiceYear>" & "2017" & "</InvoiceYear>" & vbNewLine _
& "<InvoiceMag>" & "01" & "</InvoiceMag>" & vbNewLine _
& "</root>" & vbNewLine
req.Open "POST", "http://eurolek.is-very-nice.org/WebService.asmx/DownloadInvoice" & "(" & xml & ")", False
req.setRequestHeader "Content-Type", "application/xml"
req.send
resp.loadXML req.responseText
resp.Save ("C:/ANY_FOLDER/ANY.XML")
I want to get some info from a web service and save it to c:/
Any help!!
Dim xml As String
Dim req As New XMLHTTP60
Dim resp As New DOMDocument60
xml = "<?xml version='1.0' encoding='UTF-8' ?>" & vbNewLine _
& "<root>" & vbNewLine _
& "<SecurityKey>633862AD-22B0-4813-93A0-
555DA24659DD</SecurityKey>" & vbNewLine _
& "<Username>" & "MY_WORKSHOP" & "</Username>" & vbNewLine _
& "<Password>" & "MY_PASS11" & "</Password>" & vbNewLine _
& "<InvoiceNumber>" & "40197" & "</InvoiceNumber>" & vbNewLine _
& "<InvoiceYear>" & "2017" & "</InvoiceYear>" & vbNewLine _
& "<InvoiceMag>" & "01" & "</InvoiceMag>" & vbNewLine _
& "</root>" & vbNewLine
req.Open "POST", "http://eurolek.is-very-nice.org/WebService.asmx/DownloadInvoice" & "(" & xml & ")", False
req.setRequestHeader "Content-Type", "application/xml"
req.send
resp.loadXML req.responseText
resp.Save ("C:/ANY_FOLDER/ANY.XML")
I want to get some info from a web service and save it to c:/
Any help!!