MS Excel

Téma: volání webové služby vrací encryption error

Zaslal/a Taps 10.1.2023 7:43

Zdravím, mám macro v excelu ve kterém volám webovou službu. V odpovědi se mi mi však vrací chyba encryption error. Mohl by mi prosím někdo poradit? Děkuji

Public Sub httplogin()

Dim result As String
Dim xmlDoc As Object, post As Object
Dim sEnv As String
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Dim HTTPRequest As WinHttp.WinHttpRequest
Set HTTPRequest = New WinHttp.WinHttpRequest
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & "<soap:Body>"
sEnv = sEnv & "<logUser xmlns=""http://www.webservice.com/Sws/"">"
sEnv = sEnv & "<LOGIN>user</LOGIN>"
sEnv = sEnv & "<PASSWORD>pass</PASSWORD>"
sEnv = sEnv & "</logUser>"
sEnv = sEnv & "</soap:Body>"
sEnv = sEnv & "</soap:Envelope>"

With HTTPRequest
.Open "POST", "http://server.com/webservice.asmx?WSDL&op=logUser", False
.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
.send sEnv
Debug.Print .responseText

End With
End Sub

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.