Hi,
ITs possible using MSXML terminology
Hi,
Yes it is possible with msxml. The below code is a complete working code where you have to replace with values that u want.
strDetail = "XMLHTTP"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With objXMLHTTP
strDetail = "POST"
.Open "POST", mstrMethod, False
strXML = "=""=""" & _
"<soap:Envelope" & _
" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""" & _
" xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" & _
" xmlns:soapenc=""http://schemas.xmlsoap.org/soap/encoding/""" & _
" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
"<soap:Body soap:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"" >" & _
"<MethodName xmlns="" http://webservicenamespace/Service/"">" & _
"<argument1>" arg "</argument1>" & _
"<argument2>" agr1 "</argument2>" & _
"</MethodName >" & _
"</soap:Body>" & _
"</soap:Envelope>"
strDetail = "SET REQUEST HEADER"
.setRequestHeader "Content-Type", "text/xml"
.setRequestHeader "encoded", "true"
.setRequestHeader "encodingStyle", "http://schemas.xmlsoap.org/soap/encoding/"
.setRequestHeader "SOAPAction", mstrMethod
strDetail = "SEND XML"
.send (strXML)
strDetail = "RESPONSE"
strResponse = .responseText
strDetail = "loadXML"
objDom.loadXML strResponse
End With
strDetail = "RETURN VALUE"
Set objNode = objDom.getElementsByTagName("return")
Reply Quote