Sub UploadFilesUsingVBA()
Dim Auth, AccessToken As String
Dim HTTPReq As Object
Dim path As String
Dim adoStream
path = "G:\Meine Ablage\2001659220.pdf"
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Mode = 3
adoStream.Type = 1
adoStream.Open
adoStream.LoadFromFile (path)
adoStream.Position = 0
Auth = "my-auth-token"
sBoundary = String(27, "-") & "7e234f1f1d0654"
Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HTTPReq.Open "POST", TargetURL, False
HTTPReq.setRequestHeader "Authorization", Auth
HTTPReq.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & sBoundary
HTTPReq.setRequestHeader "Content-Disposition", "form-data; name=""file"""
HTTPReq.send adoStream.Read()
Debug.Print HTTPReq.responseText
End Sub