使用具有XML正文和请求标头的Excel VBA进行HTTPS发布

Question

我正在尝试使用Excel-VBA执行XML正文的https POST，如下所示：

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 = "https://uatgateway.topl.com.au/quote"
myDom.async = False
myXMLstr = URL & "<?xml version=&Chr(34)&1.0&Chr(34)& encoding=&Chr(34)&UTF- 
8&Chr(34)& standalone=&Chr(34)&yes&Chr(34)&?><IMPULSE><REQUEST><QUOTE> 
<MERCHANT><ACQUIRERID>Bank A</ACQUIRERID><NETWORKID>eComm</NETWORKID> 
<MERCHANTID>987654321</MERCHANTID></MERCHANT><MCH_TRANSACTION> 
<QUOTEREF>3456789012</QUOTEREF><MCH_ISO>036</MCH_ISO> 
<MCH_AMT>1000.00</MCH_AMT><BIN>400555000</BIN></MCH_TRANSACTION></QUOTE> 
</REQUEST></IMPULSE>"

myDom.Load (myXMLstr)

xmlhttp.Open "post", URL, False
xmlhttp.setRequestHeader "Content-Type", "application/xml"
xmlhttp.setRequestHeader "Content-Length", "356"
xmlhttp.setRequestHeader "Accept", "text/xml"
xmlhttp.setRequestHeader "Host", "uatgateway.topl.com.au"
xmlhttp.setRequestHeader "Cache-Control", "no-cache"

xmlhttp.send myDom.XML
MsgBox xmlhttp.responseText
End Sub

我的VBA代码可以编译，但是在执行时几乎立即停止在xmlhttp.send行，并出现错误“服务器返回了无效或无法识别的响应”。 Postman上的相同POST可以工作。我不确定我是否正确引用了myDom.XML吗？

有什么建议吗？