Enviar XML a servidor WDSL.

[Fanathur]

Buenas noches.

Tengo un problema y después de buscar por el foro no he podido encontrar una solución.

El tema es que tengo que remitir un archivo XML a un servidor de la Agencia Estatal de Proteccion de Datos (España). Tengo la dirección y el nombre de la función, pero no consigo que funcione. La aplicación está realizada sobre Access y VB. Os dejo el código a ver si me podeis ayudar.

Gracias de antemano.


Private Sub cmd_xml_Click()
Dim parser As DOMDocument
Dim oHttReq As MSXML2.ServerXMLHTTP
Set parser = New DOMDocument
Set oHttReq = New MSXML2.ServerXMLHTTP

' cargar el código SOAP para el contenido.
parser.validateOnParse = False
parser.Load Application.CurrentProject.Path & "\informacion.xml"

' Enviar el comando de forma síncrona (se espera a que se reciba la respuesta)
oHttReq.Open "POST", "https://3w.aespd.es/agenciapd/axis/SolicitudService", False, "", ""
' las cabeceras a enviar al servicio Web
oHttReq.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oHttReq.setRequestHeader "SOAPAction", "probarXml"
' enviar el comando
oHttReq.send parser.XML
' este será el texto recibido del servicio Web
procesarRespuesta oHttReq.responseText
End Sub