Set h = New MSXML2.ServerXMLHTTP40
    '向指定的URL发送Post消息。这里的webservice地址为需要引用的地址
    h.Open "POST", END_POINT_URL, False, XI_LOGIN_USER, XI_LOGIN_PSW
    h.setRequestHeader "Content-Type", "text/xml"
   
    sendXML = strxml
   
    h.send (strxml)

当运行到   h.send (strxml) 的时候，可能报错误：
=========================
拒绝访问2147024891
==========================
=========================
原因：
系统的安全问题

解决：
把要SEND的web地址HTTP://地址 加入到受信任站点，并将相关的安全启用即可。

需要启用的安全：启用 ----提交非加密的表单数据 
==========================