min kode ser sådan her ud i det program der sender til min side
Sub SendXML()
'HTTP variable
Dim myHTTP As MSXML2.XMLHTTP
'HTTP object
Set myHTTP = CreateObject("msxml2.xmlhttp")
'create dom document variable
'stores the xml to send
Dim myDom As MSXML2.DOMDocument
'Create the DomDocument Object
Set myDom = CreateObject("MSXML2.DOMDocument")
'Load entire Document before moving on
myDom.async = False
'xml string variable
'replace with location if sending from file or URL
Dim myxml As String
myxml = "<?xml version=""1.0""?>" & _
"<order>" & _
"<product>mens polo</product>" & _
"<price>4.89</price>" & _
"<size>large</size>" & _
"</order>"
'loads the xml
'change to .Load for file or url
myDom.loadXML (myxml)
'open the connection
myHTTP.Open "post", _
"
http://www.automateexcel.com/pl/xlxml.php", False
'send the XML
myHTTP.Send (myDom.XML)
'Display the response
MsgBox myHTTP.ResponseText
End Sub