Public Function callWebAPI() as boolean
 
    Dim objDom As Object
    Dim objXmlHttp As Object
    Dim strRet As String
    callWebAPI = False
    Dim xmlXMLtext, getXMLAdress as String
 
    xmlXMLtext = "<?xml version=""1.0""" & _
      "encoding=""iso-8859-1""?><DATA><ACTION><do>Vorgang" & _
      "</do></ACTION><LOGDATA><login>usr</login>" & _
      "lt#pwd>123</pwd></LOGDATA></DATA>"    getXMLAdress = _
      "https://www.mydomain.com/send.asp"
 
    On Error GoTo errHandler01
 
        ' Create objects to DOMDocument and XMLHTTP
        Set objDom = CreateObject("MSXML2.DOMDocument")
        Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
 
        ' Load XML
        objDom.async = False
        objDom.loadXML xmlXMLtext
 
        'Open the webservice
        objXmlHttp.Open "POST", getXMLAdress, False
        objXmlHttp.setRequestHeader "Content-Type", _
          "application/x-www-form-urlencoded"
        objXmlHttp.setRequestHeader "Encoding", "UTF-8"
        objXmlHttp.send ("name=" & UrlEncode(objDom.xml))
 
        ' Get all response text from webservice
        strRet = objXmlHttp.responseBody
 
        Set objXmlHttp = Nothing
        Set objDom = Nothing 
        callWebAPI = True
 
 
'// Fehlerbehandlung XML
Exit Function
errHandler01:
 
    MsgBox "Es steht kein Internetzugang zur Verfügung!" & vbCrLf & _
      "Wiederholen Sie diese Aktion später, es wurde NICHTS geändert!" & vbCrLf _
      & vbCrLf & "Internet-Fehler i-2: " & Err.Description, vbCritical + _
      vbOKOnly, "Fehler"
    callWebAPI = False
    Err.Clear
    Exit Function
 
End Function

Public Function runXMLscript1 as boolean
 
	runXMLscript1  = false
 
	Dim start As Variant
	Dim vartmp As Variant
	Dim strLogdataXML As String
	Dim strDebugcodeXML As String
	Dim strXMLout As String
 
	start = Timer
	strXMLurl = "https://www.mydomain.com/send.asp"
	strXMLout = "<?xml version=""1.0""" & _
  "encoding=""iso-8859-1""?><DATA><ACTION><do>Vorgang1#lt" & _
  "/do></ACTION><LOGDATA><login>usr</login><pwd>123</pwd></LOGDATA></DATA>"
 
	'XML an Schnittstelle senden
	Set XMLHTTP = CreateObject("Msxml2.ServerXMLHTTP.3.0")
	With XMLHTTP
	   .Open "POST", strXMLurl, False
	   .setTimeouts 5000, 5000, 8000, 300000
	   .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	   .setRequestHeader "Encoding", "UTF-8"
	   .send ("name=" & UrlEncode(strXMLout))
	End With
	Call LogfileIntranet("SEND", "", "GetAll2 gesendet", LoginUsername, "1")
	vartmp = XMLHTTP.responseBody
 
	Dim objRS, objOrderNodes, objOrderNode As Variant
	Dim objXML As Variant
	Set objXML = XMLHTTP.responseXML
	objXML.loadXML (vartmp)
	If (objXML.parseError.errorCode <> 0) Then MsgBox "err113-002:" & _
  "XML-Parse-Fehler" & objXML.parseError.reason & " '" & _
  objXML.parseError.srcText & "' " & " Zeile: " & objXML.parseError.Line & "," & _
  "Zeichen: " & objXML.parseError.linepos, vbCritical, "XML-Rückgabefehler," & _
  "Syntax nicht richtig"
 
	runXMLscript1 = true
 
 
End Function