Office: VBA: Datei Upload mit http: POST

Hallo,

schönen Gruß an alle; ich hoffe jemand hat einen Hinweis wo ich ansetzen kann.

Problembeschreibung:

· VBA aus Excel (das muss auch so bleiben) und funktioniert anscheinend ja auch (zumindest bei Anderen im Forum, die mit den Lösungen zufrieden waren)
· seit einigen Tagen versuche ich eine Datei per POST hochzuladen
· habe bereits Vieles versucht und Foren, sowie den API-Provider durchkämmt
· leider ohne Erfolg
· bekomme immer eine Fehlermeldung: "error": "internal_error"
· Manuelles Upload und automatische Auswertung mit Excel-VBA (GET) klappt.
· mein Test-VBA Code und Beispiel-Codes vom Provider in CURL + Python anbei
· bitte keine Hinweise wie, ich sollte es mit einer anderen Programmiersprache versuchen

Vielen Dank im Voraus

Roland

Code:

https://developer.millionverifier.com/#operation/bulk-upload

Beispiel: Python-Code

import requests
url = "https://bulkapi.millionverifier.com/bulkapi/v2/upload?key=your-api-key"
files=[
  ('file_contents',('filename',open('path/to/file','rb'),'text/plain'))
]
response = requests.request("POST", url, files=files)
print(response.text)

Beispiel: CURL-Code

curl --location --request POST 'https://bulkapi.millionverifier.com/bulkapi/v2/upload?key=your-api-key' \
--form 'file_contents=@"path/to/file"'


----------------------------------------------------------------------------------------------------------------------------
VBA-Code

Public Sub UploadFile()
    Dim sFormData, bFormData
    Dim d As String, DestURL As String, fileName As String, filePath As String, FieldName As String, content As String
    Dim ado As Object

    Const Boundary As String = "---------------------------0123456789012"
'    Const DEALID As String = "9822"
    FieldName = "file"
    DestURL = "https://bulkapi.millionverifier.com/bulkapi/v2/upload?key=xxxxxxxxxxxxxxxxxxx"
    fileName = "Email_Bulk-Verifikation.txt"
    content = "text/plain"
    
    filePath = "E:\" + fileName
 
    Dim File, FILESIZE
    Set ado = CreateObject("ADODB.Stream")
    ado.Type = 1 'binary
    ado.Open
    ado.LoadFromFile filePath
    ado.Position = 0
    FILESIZE = ado.Size
    File = ado.Read
    ado.Close
 
    Set ado = CreateObject("ADODB.Stream")
    d = "--" + Boundary + vbCrLf
'    d = d + "Content-Disposition: form-data; name=""deal_id""" & vbCrLf & vbCrLf
    d = d + "Content-Disposition: form-data" & vbCrLf
'    d = d + DEALID & vbCrLf
    d = d + "--" + Boundary + vbCrLf
    d = d + "Content-Disposition: form-data; name=""" + FieldName + """;"
    d = d + " filename=""" + fileName + """" + vbCrLf
    d = d + "Content-Type: " & content + vbCrLf + vbCrLf
    ado.Type = 1 'binary
    ado.Open
    ado.Write ToBytes(d)
    ado.Write File
    ado.Write ToBytes(vbCrLf + "--" + Boundary + "--" + vbCrLf)
    ado.Position = 0
    
    With CreateObject("MSXML2.ServerXMLHTTP")
        .Open "POST", DestURL, False
'        .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary
        .SetRequestHeader "Content-Type", "text/plain; boundary=" & Boundary
        .send ado.Read
        
        Debug.Print .responseText
    End With
End Sub

Function ToBytes(str As String) As Variant
    Dim ado As Object
    Set ado = CreateObject("ADODB.Stream")
    ado.Open
    ado.Type = 2 ' text
    ado.Charset = "_autodetect"
    ado.WriteText str
    ado.Position = 0
    ado.Type = 1
    ToBytes = ado.Read
    ado.Close
End Function