XMLHTTP SOAP Client

Dim SendXml As String SendXml = "<?xml version=""1.0"" encoding=""utf-8""?>" SendXml = SendXml & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" SendXml = SendXml & "xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" SendXml = SendXml & "<soap:Body>" SendXml = SendXml & "<TCKimlikNoDogrula xmlns=""http://kps.nvi.gov.tr/WS/Public"">" SendXml = SendXml & "<tcKimlikNo>11111111111</tcKimlikNo>" SendXml = SendXml & "</TCKimlikNoDogrula>" SendXml = SendXml & "</soap:Body>" SendXml = SendXml & "</soap:Envelope>" Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") XMLHTTP.open "POST", "http://tckimlik.nvi.gov.tr/kpspublic.asmx?wsdl", False XMLHTTP.setRequestHeader "Man", "POST http://tckimlik.nvi.gov.tr/kpspublic.asmx?wsdl HTTP/1.1" XMLHTTP.setRequestHeader "SOAPAction", "http://kps.nvi.gov.tr/WS/Public/TCKimlikNoDogrula" XMLHTTP.setRequestHeader "MessageType", "CALL" XMLHTTP.setRequestHeader "Content-Type", "text/xml" XMLHTTP.send (SendXml) MsgBox (XMLHTTP.ResponseText) Set XMLHTTP = Nothing