Veteran
Beiträge: 106
| Hallo in die Runde,
ich soll aus einer Accdb heraus Labels für DHL-Pakete erzeugen. DHL stellt eine API zur Verfügung, die wohl so ähnlich wie unten angesprochen werden kann (PW ist natürlich nicht echt), wenn der Verweis auf "MS-XML, v. 6.0" drin ist:
Sub SOAP_lesen()
Dim htpTest As MSXML2.XMLHTTP60 'Verweis "Microsoft XML, v6.0"
Set htpTest = New XMLHTTP60
htpTest.Open "POST", "https://cig.dhl.de/services/sandbox/soap", False, "hoelscher", "geheim"
htpTest.setRequestHeader "bcs_user", "2222222222_01"
htpTest.setRequestHeader "bcs_password", "pass"
htpTest.setRequestHeader "Content-Type", "text/xml"
htpTest.send
Debug.Print htpTest.responseText
End Sub
Ich bekomme aber immer eine 500er-Servermeldung zurück und habe jetzt keine Idee mehr, was ich noch ändern könnte. Hat eine/r von Euch zufällig schon mal so etwas gelöst und kann mir weiterhelfen?
Danke,
Lorenz |
