VBA Присоединиться к API-методу POST

Question

У меня проблема с подключением к API методом POST. В документации есть этот экзамен: В имени файла находится xml файл.

<form name="frmdata" method='post' enctype='multipart/form-data' action
= "http://www.rzp.cz/cgi-bin/aps_cacheWEB.sh">
<input type="hidden" name="VSS_SERV" value="ZVWSBJXML">
<input type="file" name="filename">
<input type='submit' name='x' value='ODESLI'>
</form>

Мой код:

Public Sub test()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim myDom As Object
Set myDom = CreateObject("MSXML2.DOMDocument.6.0")

Url = "http://www.rzp.cz/cgi-bin/aps_cacheWEB.sh"
myDom.async = False
myXMLstr = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "utf-8" & Chr(34) & "?><VerejnyWebDotaz xmlns= " & Chr(34) & "urn:cz:isvs:rzp:schemas:VerejnaCast:v1" & Chr(34) & "xsi:schemaLocation=" & Chr(34) & "urn:cz:isvs:rzp:schemas:VerejnaCast:v1 schema.xsd" & Chr(34) & " version=" & Chr(34) & "2.8" & Chr(34) & "xmlns:xsi=" & Chr(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr(34) & "><Kriteria><IdentifikacniCislo>9630</IdentifikacniCislo><PlatnostZaznamu>0</PlatnostZaznamu></Kriteria></VerejnyWebDotaz>"

xmlhttp.Open "POST", Url, False

    xmlhttp.setRequestHeader "enctype", "multipart/form-data"
    xmlhttp.setRequestHeader "name", "frmdata"
    SendString = "&type=hidden&name=VSS_SERV&value=ZVWSBJXML"
    SendString = SendString & "&type=file&name="
    SendString = SendString & myXMLstr
    'SendString = SendString & "type=submit&name=x&value=ODESLI"

    xmlhttp.send SendString

    response = xmlhttp.responseText
    MsgBox response
MsgBox SendString
End Sub

Код ошибки 403.

Пожалуйста, вы можете помогите мне?

Спасибо