Transmitting a file through an API

[kschuster1]

The API I'm working with required form-data to pass the path to the file and a username.
I'm using this
Request.AddBodyParameter "Filedata", "c:\test.pdf"
Request.AddBodyParameter "userprofile_username", "myusername"

I THINK this is the correct way to pull together form-data (I don't see anything specific to that in the post.....
Is this the correct method to pass form-data??

My Request.body looks like this
{"Filedata":"c:\test.pdf","userprofile_username":"myusername"}

The path to the file now has \
That can't be correct?? - I don't thing the file will be found right

[zgrose]

Pretty sure you'll have to encode the file yourself into a multipart/form-data POST and not just send a string path to the server.

[rabsef-bicrym]

Good Afternoon. I'm trying to get something similar working here. I am able to use Postman to generate an appropriate post, but I think the Code Snippet I'm getting is incomplete, resulting in my inability to recreate using VBA-Web. Here's my Postman output:

POST /<instance redacted>/api/1/files/content?parentfolderid=<# redacted> HTTP/1.1
Host: <base URL redacted>
Authorization: <auth token redacted>
Cookie: ROUTEID=.app6a284
Content-Length: 343
Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW

----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="filename"

test
----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="file"; filename="/C:/Users/<partial directory redaction>/On-Going Projects/Woodpecker Automation/Test Move File.txt"
Content-Type: text/plain

(data)
----WebKitFormBoundary7MA4YWxkTrZu0gW

I think my problem is I don't know what (data) is supposed to be. I've tried directly emulating the (data) and that gives me a 400 error response in Excel. Then I tried replacing data with the result of the following code applied to the file in question:

Function GetFile(ByVal FileName As String) As String
    Dim FileContents() As Byte, FileNumber As Integer
    ReDim FileContents(FileLen(FileName) - 1)
    FileNumber = FreeFile()
    Open FileName For Binary As FileNumber
    Get FileNumber, , FileContents
    Close (FileNumber)
    GetFile = StrConv(FileContents, vbUnicode)
End Function

This also results in a 400 error. The documentation of the API I'm using is not hyper explicit in terms of what data type I want to pass here. I am able to use their Swagger to generate the following curl but I still don't think that's going to help as it looks like both Postman and Swagger are using some hidden library function to convert the data to a stream that the server will accept (not sure if I have the terminology right there, forgive me):

curl -X POST "<site Redacted>" -H "accept: application/json" -H "authorization: <auth Redacted>" -H "Content-Type: multipart/form-data" -F "file=@Test Move File.txt;type=text/plain" -F "filename=test"

Is this sufficient information to help me? Are there other things you might need to know to help me figure this out? I'm willing to do whatever it takes - I just can't find any good results in googling around about how (data) should be interpreted from the Postman code snippet.

Here is the error I get as a response from this Post Request:

---------------------------
Microsoft Excel
---------------------------
<?xml version="1.0" encoding="UTF-8" standalone="yes"?><Items><status>400</status><message>Request resource or xml is not valid</message><categories/></Items>
---------------------------
OK   
---------------------------

Here is how I'm forming the request:

Sub post<redacted>(strBinary, parentFID As String)

Dim <client name Redacted> As New WebClient
<client name Redacted>.BaseUrl = <URL redacted>

Dim Request As New WebRequest
Request.Method = HttpPost
Request.ResponseFormat = Json
Request.AddHeader "Authorization", "<auth redacted>"
Request.ContentType = "multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW"

Request.Body = postHTTP(strBinary, "test") ' see below
Set Response = <client name Redacted>.Execute(Request)
MsgBox Response.Content

End Sub

Public Function postHTTP(str_xml, str_boundary As String)
Dim Test As String
'Test = GetFile("C:/Users/<redacted>/On-Going Projects/Woodpecker Automation/Test Move File.txt")
    
'postHTTP = "----WebKitFormBoundary7MA4YWxkTrZu0gA" & vbNewLine _
'& "Content-Disposition: form-data; name=" & Chr(34) & "filename" & Chr(34) & vbNewLine _
'& "test" & vbNewLine _
'& "----WebKitFormBoundary7MA4YWxkTrZu0gA" & vbNewLine _
'& "Content-Disposition: form-data; name=" & Chr(34) & "file" & Chr(34) & "; filename=" & Chr(34) & "C:/Users/<redacted>/On-Going Projects/Woodpecker Automation/Test Move File.txt" & Chr(34) & vbNewLine _
'& "Content-Type: text/plain" & vbNewLine _
'& Test & vbNewLine _
'& "----WebKitFormBoundary7MA4YWxkTrZu0gA"

postHTTP = _
"----WebKitFormBoundary7MA4YWxkTrZu0gW" & vbNewLine _
& "Content-Disposition: form-data; name=" & Chr(34) & "filename" & Chr(34) & vbNewLine _
& vbNewLine _
& "Test" & vbNewLine _
& "----WebKitFormBoundary7MA4YWxkTrZu0gW" & vbNewLine _
& "Content-Disposition: form-data; name=" & Chr(34) & "file" & Chr(34) & "; filename=" & Chr(34) & "C:/Users/<redacted>/On-Going Projects/Woodpecker Automation/Test Move File.txt" & Chr(34) & vbNewLine _
& "Content-Type: text/plain" & vbNewLine _
& vbNewLine _
& GetFile("C:/Users/<redacted>/On-Going Projects/Woodpecker Automation/Test Move File.txt") & vbNewLine _
& "----WebKitFormBoundary7MA4YWxkTrZu0gW"


End Function

[rabsef-bicrym]

As an aside, I am pretty sure I have the rest of this right, save "what data is transmitted in the (data) section of the Postman Code Snippet" as I can recreate other POSTs to this API successfully where a file is not being transferred (adding a comment to a page, etc).

[zgrose]

I can show you how I make a multipart/form-data but you're going to have to make some translations because I use MSXML2.XMLHTTP60 to do the networking bits:

First I create my boundary text and then I run my form fields through this function:

Public Function CreateFormData(fileName As String, mimeType As String, FileParamName As String, OtherParams As Dictionary, strBoundary As String) As String
    
    Dim strBody As String
    Dim i As Long
            
    strBody = "--" & strBoundary & vbCrLf
    '// todo: convert to filenameStar in the future
    strBody = strBody & "Content-Disposition: form-data; name=""" & FileParamName & """; filename=""" & StrConv(Utf8BytesFromString(fileName), vbUnicode) & """" & vbCrLf
    strBody = strBody & "Content-Type: " & mimeType & vbCrLf
    
    Dim nFile As Integer
    Dim baBuffer() As Byte
    Dim sFileBody As String
    
    nFile = FreeFile
    Open fileName For Binary Access Read As nFile
    If LOF(nFile) > 0 Then
        ReDim baBuffer(0 To LOF(nFile) - 1)
        Get nFile, , baBuffer
        sFileBody = StrConv(baBuffer, vbUnicode)
    End If
    Close nFile
    
    strBody = strBody & vbCrLf & sFileBody    '//Base64EncodeFile(filename)
    
    strBody = strBody & vbCrLf & "--" & strBoundary

    For i = 0 To OtherParams.count - 1
        
        strBody = strBody & vbCrLf & "Content-Disposition: form-data; name=""" & OtherParams.Keys(i) & """" & vbCrLf
        strBody = strBody & "Content-Type: text/plain; charset=utf-8" & vbCrLf & vbCrLf
        If VBA.VarType(OtherParams.Items(i)) = vbString Then
            If Len(CStr(OtherParams.Items(i))) > 0 Then
                strBody = strBody & StrConv(Utf8BytesFromString(CStr(OtherParams.Items(i))), vbUnicode)
            Else
                strBody = strBody & ""  '// just for clarity
            End If
        Else
            strBody = strBody & ConvertToJson(OtherParams.Items(i))
        End If
        strBody = strBody & vbCrLf & "--" & strBoundary

    Next i
    
    strBody = strBody & "--" & vbCrLf
    CreateFormData = strBody
    
End Function

The output of that get converted into a byte array and posted

        ReDim bFormData(Len(strBody) - 1)
        bFormData = StrConv(strBody, vbFromUnicode)
            
        xhr.Open "POST", uri, True
        xhr.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & strBoundary
        xhr.setRequestHeader "Authorization", "Bearer " & GetBearerToken()
        
        xhr.send bFormData

[rabsef-bicrym]

@zgrose Thank you so much for your help - I appreciate you showing me what you're doing. I'm still not able to achieve a positive test. I tried my best to build off of what you had - I'm completely not set on using any framework and happy to move to a successful direction if I can get there (using your post method or VBA-Web or whatever). I just cannot form this request right.

Addendum I can't get TRUE for the .open method to work while printing the responseText so I can't figure out what's going on with TRUE there. Maybe that's my problem but if I comment out the responseText msgbox stuff it executes fine but nothing happens on server end.

Error

---------------------------
Microsoft Excel
---------------------------
<?xml version="1.0" encoding="UTF-8" standalone="yes"?><Items><status>400</status><message>Request resource or xml is not valid</message><categories/></Items>
---------------------------
OK   
---------------------------

I'm using the following code (posted in total in the hopes that you can help me find what's wrong - sorry for long post) - I modified two bits from what you indicated; (1) I was having trouble with the dictionary and it didn't look like what was being generated by Postman so I just hard coded it; (2) I tried to parameterize the boundary:

''' WinApi function that maps a UTF-16 (wide character) string to a new character string
Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpWideCharStr As LongPtr, _
    ByVal cchWideChar As Long, _
    ByVal lpMultiByteStr As LongPtr, _
    ByVal cbMultiByte As Long, _
    ByVal lpDefaultChar As Long, _
    ByVal lpUsedDefaultChar As Long) As Long
    
' CodePage constant for UTF-8
Private Const CP_UTF8 = 65001


Sub callFunc()
Dim xhr As Object
Set xhr = CreateObject("MSXML2.serverXMLHTTP")
Dim path As String, mime As String, param As String, bound As String, reqBody As String, uri As String
Dim Trest As String
Dim oparams As New Dictionary
Dim bFormData() As Byte

path = "C:\Users\<redacted>\On-Going Projects\Woodpecker Automation\Test.txt"
mime = "text/plain"
param = "file"
oparams("filename") = "VBATest"
bound = RandomString(24)
reqBody = CreateFormData(path, mime, param, oparams, bound)
uri = "https://<redacted>/api/1/files/content?parentfolderid=4189"

ReDim bFormData(Len(reqBody) - 1)
bFormData = StrConv(reqBody, vbFromUnicode)

MsgBox bFormData
xhr.Open "POST", uri, False
Debug.Print xhr.readyState
xhr.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & "--" & strBoundary
'// to do - replace token w/ automated token maintaner
xhr.setRequestHeader "Authorization", "Bearer " & "<redacted>"
'xhr.setRequestHeader "Accept", "application/json"
        
xhr.send (bFormData)

Trest = xhr.responseText
MsgBox Trest
End Sub

Public Function CreateFormData(fileName As String, mimeType As String, FileParamName As String, OtherParams As Dictionary, strBoundary As String) As String
    
    Dim strBody As String
    Dim i As Long
            
    strBody = "--" & strBoundary & vbCrLf
    '// todo: convert to filenameStar in the future
    strBody = strBody & "Content-Disposition: form-data; name=""" & FileParamName & """; filename=""" & StrConv(Utf8BytesFromString(fileName), vbUnicode) & """" & vbCrLf
    strBody = strBody & "Content-Type: " & mimeType & vbCrLf
    
    Dim nFile As Integer
    Dim baBuffer() As Byte
    Dim sFileBody As String
    
    nFile = FreeFile
    Open fileName For Binary Access Read As nFile
    If LOF(nFile) > 0 Then
        ReDim baBuffer(0 To LOF(nFile) - 1)
        Get nFile, , baBuffer
        sFileBody = StrConv(baBuffer, vbUnicode)
    End If
    Close nFile
    
    strBody = strBody & vbCrLf & sFileBody    '//Base64EncodeFile(filename)
    
    strBody = strBody & vbCrLf & "--" & strBoundary & vbCrLf
    
    strBody = strBody & "Content-Disposition: form-data; name=" & """filename""" & vbCrLf & vbCrLf & "vbaTest"

'    For i = 0 To OtherParams.Count - 1
'
'        strBody = strBody & vbCrLf & "Content-Disposition: form-data; name=""" & OtherParams.Keys(i) & """" & vbCrLf
'        strBody = strBody & "Content-Type: text/plain" & vbCrLf & vbCrLf
'        If VBA.VarType(OtherParams.Items(i)) = vbString Then
'            If Len(CStr(OtherParams.Items(i))) > 0 Then
'                strBody = strBody & StrConv(Utf8BytesFromString(CStr(OtherParams.Items(i))), vbUnicode)
'            Else
'                strBody = strBody & ""  '// just for clarity
'            End If
'        Else
'            strBody = strBody & ConvertToJson(OtherParams.Items(i))
'        End If
'        strBody = strBody & vbCrLf & "--" & strBoundary
'
'    Next i
    
    strBody = strBody & "--" & strBoundary & vbCrLf
    CreateFormData = strBody
    
End Function




' ## taken from https://www.thespreadsheetguru.com/the-code-vault/generate-string-random-characters-vba-codet
' but removed the special characters from the Char Array

Function RandomString(Length As Integer)
'PURPOSE: Create a Randomized String of Characters
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim CharacterBank As Variant
Dim x As Long
Dim str As String

'Test Length Input
  If Length < 1 Then
    MsgBox "Length variable must be greater than 0"
    Exit Function
  End If

CharacterBank = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
  "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", _
  "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
  "A", "B", "C", "D", "E", "F", "G", "H", _
  "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", _
  "W", "X", "Y", "Z")
  

'Randomly Select Characters One-by-One
  For x = 1 To Length
    Randomize
    str = str & CharacterBank(Int((UBound(CharacterBank) - LBound(CharacterBank) + 1) * Rnd + LBound(CharacterBank)))
  Next x

'Output Randomly Generated String
  RandomString = str

End Function


''' Return byte array with VBA "Unicode" string encoded in UTF-8
Public Function Utf8BytesFromString(strInput As String) As Byte()
    Dim nBytes As Long
    Dim abBuffer() As Byte
    ' Catch empty or null input string
    Utf8BytesFromString = vbNullString
    If Len(strInput) < 1 Then Exit Function
    ' Get length in bytes *including* terminating null
    nBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, 0&, 0&, 0&, 0&)
    ' We don't want the terminating null in our byte array, so ask for `nBytes-1` bytes
    ReDim abBuffer(nBytes - 2)  ' NB ReDim with one less byte than you need
    nBytes = WideCharToMultiByte(CP_UTF8, 0&, ByVal StrPtr(strInput), -1, ByVal VarPtr(abBuffer(0)), nBytes - 1, 0&, 0&)
    Utf8BytesFromString = abBuffer
End Function

Is there any chance you can help me debug this?

[rabsef-bicrym]

I tried modifying it one more time to see if it would change anything - I'm copying the EXACT code as far as I can tell, from Postman, and not getting it:

Code Changed

uri = "https://<redacted>/api/1/files/content?parentfolderid=4189"

ReDim bFormData(Len(reqBody) - 1)
bFormData = StrConv(reqBody, vbFromUnicode)

MsgBox bFormData
xhr.Open "POST", uri, False
Debug.Print xhr.readyState
'// to do - replace token w/ automated token maintaner
xhr.setRequestHeader "Host", "<redacted>"
xhr.setRequestHeader "Accept", "application/json"
xhr.setRequestHeader "Authorization", "Bearer " & "<redacted>"
xhr.setRequestHeader "Cookie", "ROUTEID=.app6b284"
xhr.setRequestHeader "Content-Length", "333"
xhr.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & "--" & "--WebKitFormBoundary7MA4YWxkTrZu0gW"
        
xhr.send (bFormData)

My body looks like this:

----WebKitFormBoundary7MA4YWxkTrZu0gW

Content-Disposition: form-data; name="file"; filename="C:\Users\<oops Redacted>\On-Going Projects\Woodpecker Automation\Test.txt"

Content-Type: text/plain



test

----WebKitFormBoundary7MA4YWxkTrZu0gW

Content-Disposition: form-data; name="filename"



vbaTest

----WebKitFormBoundary7MA4YWxkTrZu0gW

Postman looks like this:

POST /<redacted>/api/1/files/content?parentfolderid=4189 HTTP/1.1
Host: <redacted>
Accept: application/json
Authorization: Bearer <redacted>
Cookie: ROUTEID=.app6b284
Content-Length: 333
Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW

----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="file"; filename="/C:/Users/<oops redacted>/On-Going Projects/Woodpecker Automation/Test.txt"
Content-Type: text/plain

(data)
----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="filename"

test
----WebKitFormBoundary7MA4YWxkTrZu0gW

I feel like those two things are exactly the same?

[kschuster1]

Hey guys - I'm in a bit of the same boat here. I don't see any docs for VBA-Web around multipart so I'm trying to create the body exactly how postman displays the result for HTTP

My code snip
`Request.RequestFormat = WebFormat.json
Request.ContentType = "multipart/form-data; boundary =----RyanFileBoundary"
Request.ResponseFormat = WebFormat.json
Request.Accept = "application/json"
Request.AddHeader "Authorization", "Bearer " & strToken

Dim strBody As String

strBody = "----RyanFileBoundary" & vbNewLine
strBody = strBody & "Content-Disposition: form-data; name=""Filedata"", FileName=""C:\SAMPLE PDF.pdf""" & vbNewLine
strBody = strBody & "Content-Type: application/pdf" & vbNewLine
strBody = strBody & "----RyanFileBoundary" & vbNewLine
strBody = strBody & "(data)" & vbNewLine
strBody = strBody & "Content-Disposition: form-data; name=""userprofile_username""" & vbNewLine & vbNewLine
strBody = strBody & "myUsernameHere" & vbNewLine
strBody = strBody & "----RyanFileBoundary"
`
The body that gets sent it
POST https://test.myserver.com/api/invoices/48939/attachments
Authorization: Bearer eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpc3MiO
User-Agent: VBA-Web v4.1.6 (https://github.com/VBA-tools/VBA-Web)
Accept: application/json
Accept-Encoding: identity
Content-Type: multipart/form-data; boundary =----RyanFileBoundary
Content-Length: 302

----RyanFileBoundary
Content-Disposition: form-data; name="Filedata", FileName="C:\SAMPLE PDF.pdf"
Content-Type: application/pdf
----RyanFileBoundary
(data)
Content-Disposition: form-data; name="userprofile_username"

myUsernameHere
----RyanFileBoundary

**I get a response from the server that says I must provide userprofile_username

So its not seeing my username "myUsernameHere"

I took the same tact and tried to replicate what postman produced here:**

`POST /api/invoices/48937/attachments HTTP/1.1
Host: test.myserver.com
Authorization: Bearer: eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.ey
Cookie: PHPSESSID=9df8570a7ba1a243608edaad5b1701c0
Content-Length: 348
Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW

----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="Filedata"; filename="/C:/SAMPLE PDF.pdf"
Content-Type: application/pdf

(data)
----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="userprofile_username"

myUsernameHere
----WebKitFormBoundary7MA4YWxkTrZu0gW`

You all see anything? I'm not sure how to pass that username. You would think if this is passed via HTML it would be Name="userprofile_username" and Value="myusernamehere"

It's not clear to me what the fix is here

[zgrose]

My body looks like this:

----WebKitFormBoundary7MA4YWxkTrZu0gW

Content-Disposition: form-data; name="file"; filename="C:\Users\<oops Redacted>\On-Going Projects\Woodpecker Automation\Test.txt"

Content-Type: text/plain



test

----WebKitFormBoundary7MA4YWxkTrZu0gW

Content-Disposition: form-data; name="filename"



vbaTest

----WebKitFormBoundary7MA4YWxkTrZu0gW

Postman looks like this:

POST /<redacted>/api/1/files/content?parentfolderid=4189 HTTP/1.1
Host: <redacted>
Accept: application/json
Authorization: Bearer <redacted>
Cookie: ROUTEID=.app6b284
Content-Length: 333
Content-Type: multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW

----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="file"; filename="/C:/Users/<oops redacted>/On-Going Projects/Woodpecker Automation/Test.txt"
Content-Type: text/plain

(data)
----WebKitFormBoundary7MA4YWxkTrZu0gW
Content-Disposition: form-data; name="filename"

test
----WebKitFormBoundary7MA4YWxkTrZu0gW

I feel like those two things are exactly the same?

Postman is truncating the formdata and putting (data). You have "test" in the same place. Because of that I can't tell if you actually have a file there.

Here is the POST multipart/form-data body for a random excel file on my machine (before conversion to a byte array via the lines ReDim bFormData(Len(reqBody) - 1) and bFormData = StrConv(reqBody, vbFromUnicode)).

?strbody

--CFPwjDx3ULtXPCIcALxriO8HpAk0NTMf
Content-Disposition: form-data; name="file"; filename="C:\Users\zgros\AppData\Local\Temp\A3M\radCB512.tmp\New Template.xlsx"
Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

PK��� � �   ! ¨˜©Ün�  •�  � ��[Content_Types].xml ¢��(  �                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Ä”ËnÂ0�E÷•ú�‘·Ub`QU��E�Ë�©ô�\{ �~Éc(ü}'�ªªJA�¤nb%ž¹÷xâ™áxmM±‚ˆÚ»šõ«�+ÀI¯´›×ì}ú\Þ±�“pJ�ï f�@6�]_
§› XP¶Ãš5)…{ÎQ6`�V>€£�™�V$z�s�„\ˆ9ðA¯wË¥w   \*S«ÁFÃG˜‰¥IÅÓš>oI"�dÅÃ6°õª™�Áh)�‘ò•S¿\Ê�CE™9���ð†0�ïthwþ6Øå½Ri¢VPLDL/Â��_�þéãâÃûEuX¤ƒÒÏfZ‚òri©��†�Ba��¬©òZY¡Ýžû€��Fž—þ…AÚóeá�9�ÿÄ‘èÞ�ÏÏóK‘eŽ��ÓÆ ^ú÷gÑcÎ�ˆ ÞR¤�½8ÀOíC�t�'Ñ�¤NŽpz�ö­Úf—�„ &
ßÍÚué¿�i
œ]vhçŒ�uª·\bòölû­L‡9ÏCuô�  ÿÿ� PK��� � �   ! �^¾e��  ß�  � ��_rels/.rels ¢��(  �                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ¬’MK�1�†ï‚ÿ!̽;Û*"Òl/EèMdý�1™ý`7™�¤ºý÷FAt¡¶�zœ¯wžy™õf²£x£�{v�–E ‚œfÓ»VÂKý¸¸��“rF�ìHÂ�"lªë«õ3�*å¡Øõ>Š¬â¢„.%ÿ€�uGVÅ‚=¹\i8X•r�ZôJ�ª%\•å�†ß�PÍ4ÅÎH�;s�¢>ø¼ù¼67M¯iËzoÉ¥#+�¦DÎ�Yø�ÙBêó5¢V¡¥$Á°~ÊéˆÊû"c��'ZýŸèïkÑRRF%…š��æùì8�´¼¤Es��Ü™F|ç0¼2�§Xn/É¢÷1±=cÎWÏ7�ÎÞ²ú   ÿÿ� PK��� � �   ! ��ê-è�  X     �   xl/workbook.xml¬Umo£8�þ~Òý��íWŠ
˜ j²
!h+5«ª›¶_"U�˜b•·3¦I·Úÿ~c�Òt»:åº�%���ÇÏÌ<3>ÿ¼-�퉉–×ÕXÇgH×X•Ô)¯�ÆúÍ26<]k%­RZÔ��ëϬÕ?Oþüã|S‹Çu]?j Pµc=—²  L³MrVÒö¬nX�+Y-J*a*�̶�Œ¦mΘ,�ÓBÈ5KÊ+}‡�ˆS0ê,ã   ‹ê¤+Y%w ‚�T�ý6çM; •É)p%��]c$uÙ Äš�\>÷ ºV&ÁÅCU�º.Àí-&ÚVÀ×…�F0XÃI°ô'¢nëLž�´¹#ýÎ�ŒLŒß„`û>�§!9¦`O\åðÀJ¸�då�°ÜW0Œ~�
ƒ´z­��¼�¢‘�7KŸœg¼`·;éj´i¾ÒReªÐµ‚¶ržrÉÒ±>‚i½ao¢kÂŽ�°jÙ¶åéæä ç+¡�úÙ�k™óön¯s]KYF»B.AàñP1®ë[D!€`¦…d¢¢’ÍêJ‚>÷þþ®�{ìY^ƒòµköwÇ�ƒ‚�ÝA`¤I@×í�•¹Ö‰b¬Ï‚ÕM�aY}� �®¦M�QIW—uB‹Õ’•Íjj/V‚¦ˆX�9“`8Ò2}_8ÿAÍ4Q¡0!�;¾»÷Ÿã�´E0(öJ

Þ/¢KÈÚ7ú�9�¥¤û�¿€$y÷/vŒlÏA¾a‘Ø2�Ÿ8ÆÔ®aÅ�ò¦.B#âÿ /„�$5íd¾×…Â�ë�ùÅÒ‚n‡�Œ‚Ž§¯ç¿ ýÇPÏŸ†aí‡òTuÀ[Î6í«‚ÔTÛÞñ*­7 �
Óµçaî ÓM¿zÇS™ƒ�-�Ûƒí�ã�9PÆÄ&`̸€ ¨–    &]£‰äOlI×ýêHñ�ë/®5�ãxä�¶
‘qfÄ6B<õ
/žO#�»sb‡=_óˆp߉�xÿÔª¾z�LR¥�húêP�} ��€„´À5ñü…§)ƒ.#�u°¸H±
Ã1DÏ�¸� àý°Ûêå1œ�Å+–ªb��G³=›ûû›ª�E¤W�î�!9\>ZÞ3P�˜lÿú�~Âçæ� èî-8h?Qµ
�å�ö1²|E†måe+û'”�‡`b�MGÈw4·‰áx¾exŽm�3'²æd4�æ!QZS÷^ð�tÿ¾ŠƒáBU,s*äRÐä�®ák–…´…ð÷‘6�ï1Ù�x!²�¢�ãØp°�Œ0t�ƒD±MF8šÍIüJV¹Ÿ}°÷zfÿoFe�ýGµž~�¨1Þ[�ÆlgØçñM� ®#�÷ý¿ÿmã7ð¾`'nŽoOÜ8ûºX.NÜ{9_Þߎf�éí.�jì5d�9œü�  ÿÿ� PK��� � �   ! J©¦aú   G�  � ��xl/_rels/workbook.xml.rels ¢��(  �                                                                                                                                                                                                                                                                ¼’ÍjÄ0„ï…¾ƒÑ½q’þPÊ:{)…½¶Û�0±�‡Mlc©?yûš”î6°¤—У$4ó1Ìfû9ôâ�#uÞ)(²��ºÚ›Îµ
^÷OW÷ ˆµ3º÷��ŒH°­./6ÏØkNOd»@"©8R`™Ãƒ”T[�4e> K—ÆÇAs�c+ƒ®�ºEYæù�Œ¿5 šiŠ�Q�wæ�Ä~Éùomß4]��¾~�Ðñ��ɉ�“ Ž-²‚iü^�Y��yž¡\“áÃÇ�YD>q�W$§K¹�Sü3Ìb2·kÂ�Õ�Í�ÇT>:¥3[/%s³*�}êú±+4Í?örVÿê�  ÿÿ� PK��� � �   ! o™Ò±Ì�  ³�  �   xl/worksheets/sheet1.xmlœ“ÁnÛ0†ï�ö�‚î¶lÇiã N‘Õ�ÖÆaívWdÚ�bI†¤4 †½{)gI�¹��,€”Å�¤ôsñpP=y�ë¤Ñ%Mã„�ÐÂÔR·%ýý²Žf”8ÏuÍ{£¡¤GpôaùùÓboìÖu ž A»’vÞ�sÆœè@q�›�4þiŒUÜ£k[æ��¼�ƒTϲ$¹cŠKMO„¹½…ašF
¨ŒØ)Ðþ�±Ðs�õ»N�îLSâ�œâv»�"aÔ€ˆ�ì¥?ŽPJ”˜?µÚX¾é±ïCšsA��¿×äœfܿʤ¤°Æ™ÆÇHf§š¯Û/XÁ¸¸�®û¿    “æÌ«�øŽÊ>VR:½°²wØ䃰»�,\—�ïd]Ò¿išTÉl]DÕãz�å³Ç4Z­Ò$ÊVYõe2)¾�ùú�].F�ü´�Å�?¸Â7x�rK)[.j‰¯�:&�š’®ÆÍ1à�„½û��l�tº1f�œ'ÌŸ„xvuv=ê�ÓÕÐð]ï�™ý7�mçq(ò8›b�A�óúX��(=$Åù4ÀFVÅ=G{à-|綕ڑ�šñÔ=%öDJb´½�Bì="7Æ{£Î^‡Ã�(‚$ÆëjŒñg'�|�·å�   ÿÿ� PK��� � �   ! 4�6£��  P�  �   xl/worksheets/sheet2.xmlœ”M�›0�†ï•ú�,߃�$¤AÀ*YvÕ=´ªºmïŽ�ˆ�Œ©í|©ÚÿÞ1Q’Jé!Z ¤±±Ÿ÷�ñ˜ìá Z²�c¥îr��!%Ð ]É®ÉéÏ�Ï£O”XÇ»Š·ºƒœ�ÁÒ‡âã‡l¯ÍÆ®��ABgsºv®O�³b
ŠÛ@÷Ðá—Z�Å��MÃlo€WÃ&Õ²8�¦¸ìè‰�š{�º®¥€R‹­‚Î� �Zîп]ËÞžiJ܃SÜl¶ýHhÕ#b%[éŽ�”�%Ò—¦Ó†¯ZÌû�M¸ �ƒOŒïø,3Ìß())Œ¶ºv�’ÙÉómús6g\\H·ùß…‰&ÌÀNú�¼¢â÷YŠ¦�V|…�ß K.0_.“ne•Ó?Éã|²L–³ÑS8[Œ&Ër>Z&Óp”ŒËE�‡IY–Oo´È†>ùf�6#|å
ÏàÕ·[LY‘U�OßgLÔ9]D~rØðKÂÞþ��ÇW¯Ð‚p€â�%¾oWZoüÂ�œ
½Ô°Àã¸pr��жHÅ�Øß'�A•]�Šì�ŸÕž‡NGÃ�Ô|Ûºïzÿ�d³v(; â)–À÷PZ�K°�›�µƒÉôâ¼äŽ�™Ñ{‚�€FmÏýµŠRŒÿ¿³È„_‹Ù�„YLdW„�Û¡;�/¢Î>Oìž7ð…›Fv–´P��f”˜“É0ÀØéÞÛš¡Û•vN«óh�7�P,ð,k­Ýy€…g—�Añ�  ÿÿ� PK��� � �   ! Á��¾N�  Æ   �   xl/theme/theme1.xmlìYÍ‹�7�¿�ú?swü5ã�%ÞàÏl“Ý$d�”�µ¶ìQV32’¼���%9õR(¤¥—Bo=”Ò@�
½ô� $´é�Ñ'ÍØ#­å$›lJZv
‹Gþ½§§÷ž~zótñÒ½˜zG˜�Â’–_¾Pò=œŒØ˜$Ó–�k8(4|OH”Œ�e nù�,üKÛŸ~r�mÉ�ÇØ�ùDl¡–�I9Û*�Å�†‘¸Àf8�ß&ŒÇHÂ#Ÿ�Ç��ƒÞ˜�+¥R­�#’ø^‚bP{}2!#ì
•J�{©¼Oá1‘B
Œ(ßWª±%¡±ãòBˆ…èRî�!Úòaž1;�â{Ò÷(��~hù%ýç�·/�ÑV&Då�YCn ÿ2¹L`|XÑsòéÁjÒ �ƒZ{¥_�¨\ÇõëýZ¿¶Ò§�h4‚•¦¶Ø:ë•n�a
PúÕ¡»WïUË�ÞÐ_]³¹�ª�…× T�°†�ºàE�¯A)>\Ç�f§gë× �_[Ã×Kí^P·ôkPDIr¸†.…µjw¹Ú�dÂèŽ�ÞƒA½’)ÏQ�
«ìRSLX"7åZŒî2> €�R$IâÉÅOÐ�²¸‹(9àÄÛ%Ó��o†�&`¸T)
JUø¯>�þ¦#Š¶02¤•]`‰X�RöxbÄÉL¶ü+ Õ7 /ž={þðéó‡¿=�ôèùÃ_²¹µ*Kn�%SSîÕ�_ÿýý�Þ_¿þðêñ7éÔ'ñÂÄ¿üùË—¿ÿñ:õ°âÜ�/¾}òòé“�ß}õçO��ÚÛ��˜ð!‰±ð®ácï&‹a��ûñ�?�Ä0BÄ’@�èv¨îËÈ�^[ êÂu°íÂÛ�XÆ�¼<¿kÙº�ñ¹$Ž™¯F±�ÜcŒv�w:ચËððpžLݓ󹉻‰Ð‘kî.J¬ ÷ç3 WâRÙ�°eæ
Š�‰¦8ÁÒS¿±CŒ�«»Cˆå×=2âL°‰ôî�¯ƒˆÓ%Cr`%R.´CbˆËÂe „ÚòÍÞm¯Ã¨kÕ=|d#a[ ê0~ˆ©åÆËh.QìR9D15�¾‹dä2r�ÁG&®/$DzŠ)óúc,„Kæ:‡õ�A¿
ã�û�]Ä6’KrèÒ¹‹�3‘=vØ�P<sÚL’ÈÄ~&�!E‘wƒI�|�Ù;D=C�P²1Ü·   ¶Âýf"¸�äjš”'ˆúeÎ�±¼Œ™½��t‚°‹eÚ<¶ØµÍ‰3;:ó©•Ú»�StŒÆ�{·>sXÐa3Ëç¹ÑW"`•�ìJ¬+ÈÎUõœ`�e’ªkÖ)r—�+e÷ñ”m°goq‚x�(‰�ߤù�DÝJ]8åœTz�Ž�Mà5�å�ä‹Ó)×�è0’»¿Ië��Yg—z�î|]p+~o³Ç`_Þ=í¾��|j� ö·öÍ�Qk‚<a†�
�Ý‚ˆ�þ\D�«Zl؛6���FV½�“ä�Åω²'üwÊ�w�s���[ñû”:›(eçD�³    ÷�,kzhžÜÀp’¬sÖyUs^ÕøÿûªfÓ^>¯eÎk™óZÆõöõAj™¼|�Ê&ïòèžO¼±å3!”îË�Å»Bw}�¼ÑŒ�0¨ÛQº'¹j�Î"øš5˜,Ü”#-ãq&?'2Ú�ÐZCeÝÀœŠLõTx3& c¤‡u+�ŸÐ­ûNóx��ÓNg¹¬ºš©��’ùx)\�C—J¦èZ=ïÞ­Ôë~èTwY—�(ÙÓ�aLf�Qu�Q_�B�^g„^Ù™XÑtXÑPê—¡ZFqå
0m��xåöàE½å‡AÚA†f�”çc�§´™¼Œ®
ΙFz“3©™�Pb/3 �tSÙºqyjuiª½E¤-#Œt³�0Ò0‚�á,;Í–ûYƺ™‡Ô2O¹b¹�r3ê���kE"'¸�&&SÐÄ;nùµj�·*#4kù�è�Ã×x�¹#Ô[�¢S¸v�Ižnøwa–��²‡D”:\“NÊ�1‘˜{”Ä-_-�•
4Ñ�¢m+W€�>Zãš@+�›q�t;Èx2Á#i†Ý�QžN��áS®pþªÅß�¬$Ù�½���½�:ç7�¤XX/+�Ž‰€‹ƒrêÍ1�›°�‘åùwâ`Êh×¼ŠÒ9”Ž#:‹Pv¢˜džÂ5‰®ÌÑO+��OÙšÁ¡ë.<˜ª�ö½OÝ7�ÕÊs�iæg¦Å*êÔt“é‡;ä
«òCÔ²*¥nýN-r®k.¹��ÕyJ¼áÔ}‹�Á0-ŸÌ2MY¼Nʳ³QÛ´3,�OÔ6ømuF8=ñ®'?È�ÌZu@,ëJ�øúÊܼÕf�w�<zp�8§RèPBo—#(úÒ�È”6`‹Ü“Y��ß¼9'-ÿ~)l�ÝJØ-”�a¿�TƒR¡�¶«…v�VËý°\êu*�à`‘Q\�Óëú�\aÐEvi¯Ç×.îãå-Í…�‹‹L_Ì�µáúâ¾\Ù|qï� �ûµÊ Ymvj…fµ=(�½N£ÐìÖ:…^­[ï
zÝ°Ñ�<ð½#
�ÚÕnPë7
µr·[�j%e~£Y¨�•J;¨·�ý ý +c`å)}d¾ ÷j»¶ÿ�  ÿÿ� PK��� � �   ! y¡€l¤�  R�  
   xl/styles.xml¤UmkÛ0�þ>Ø��úîÊvã,  ¶ËÒÔPèÆ �ì«bˉ¨^Œ$gÎÆþûNv^�:¶Ñ~‰NçÓsÏÝsRÒ›N
´cÆr­2�]…�1UꊫM†¿>�Á#먪¨ÐŠexÏ,¾Éß¿K­Û�ö¸eÌ!€P6Ã[çš�!¶Ü2Ií•n˜‚/µ6’:Øš
±�a´²þ��$�Ã)‘”+< ,dù? ’šç¶  J-�êøš�îö=�F²\Üo”6t-€j�Mh‰ºhjbÔ™c’Þû"�ä¥ÑV×î
p‰®k^²—tçdNhyF�ä×!E     ã‹Ú;óJ¤ 1lǽ|8Ok­œE¥n•�1�¨oÁâYéïªðŸ¼sˆÊSû�í¨ O„Iž–Zhƒ�H��ë=ŠJ6DÜRÁ׆û°šJ.öƒ;öŽ^íCœäÐ{ï$žÇa±pˆ�qb�{�àÈS�Ï1£
Ø ƒý´o ½‚I�`ú¸�DoÝGq2:@ú„yºÖ¦‚É>÷ãèÊSÁj�D
ßlýêt�¿kí�¨Ÿ§�§�­¨ð¥ '�Ê)™��~ú¿Õ�Ø]�T+�éî«Ã=òM8šPÈÁ�ð†�Ç�£
Øo†E]}‰�ˆ#Ú�¤Oé‘×;ßýu�09��´n¹p\ý�0`Vݹ�¡WÀù«×7ç”�:Q±š¶Â=�>føl�b�oe|ŠúÂwÚõ��>Û�^©hês°Î=X�/XQkx†�Þ-?ÌWwE�ÌÂå,˜\³$˜'ËU�Ln—«U1�ãðö×è�xÃõïß«<…‹µ°�� s(öPâãÙ—áÑf ßÏ(Ð�sŸÇÓðc�…Aq�FÁdJgÁlz��E�Å«édy—�Ɉ{òÊg"$Q4<8ž|²p\2ÁÕQ«£Bc/ˆ�Û¿�AŽJ�óŸAþ�  ÿÿ� PK��� � �   ! ®¸m�œ   µ   �   xl/sharedStrings.xml4�A
Â0�E÷‚w�³·©.D$I�¢'Ð�„vl�Í$f¦boo\¸|ÿóx¦ûÄY½±pHdaß´ �ú4��-<î·Ý    �‹§ÁωЊ�Ûn³¨ê�[˜DòYkî'Œž›”‘êóL%z©XF͹ �xB”8ëCÛ�uô�@õi!©]P�…ׂ—?;ÃÁ�qטe5ZœÑ¿A׬û�  ÿÿ� PK��� � �   ! ¹e!1C�  i�  � ��docProps/core.xml ¢��(  �                                                                                                                                                                                                                                                                Œ’_KÃ0�Åß�¿CÉ{›¦›2CÛ�Ê|q 8Qö�’»­Øü!‰vûö¦íV«óÁÇÜsòË9—ä󽬣O°®Òª@$IQ�ŠkQ©m�^V‹x†"ç™�¬Ö

t ‡æååEÎ
åÚ“Õ�¬¯ÀE�¤�å¦@;ï
ÅØñ�Hæ’àPAÜh+™�G»Å†ñw¶�œ¥é5–à™`žá��›�ˆŽHÁ�¤ù°u���C
�”w˜$��{=Xéþ¼Ð)#§¬üÁ„NǸc¶à½8¸÷®�ŒMÓ$ͤ‹�ò�ü¶||îªÆ•jwÅ�•¹à”[`^Ûr­ë0��¬v�ã‘Ð.±fÎ/þ7�ˆÛÃ/ï¹�¸]���"
Áh_㤼NîîW�Tfi–Æ„ÄÙtE¦4›ÑéÕº}þÇý6h?�Ç�ÿ'ÞÐI:"ž eŽÏ>Gù�  ÿÿ� PK��� � �   ! aI    �‰�  ��  � ��docProps/app.xml ¢��(  �                                                                                                                                                                                                                                                                œ’AoÛ0…ï�ú�Ý�9ÝP�¬bHWô°a�’¶gM¦c¡²$ˆ¬‘ì×�¶ÑÔÙzê�ä{xúDIÝ�:_ô�ÑÅP‰å¢����k�ö•xØÝ]~��’   µñ1@%Ž€âF_|R›��dr€�G�¬DK”VR¢m¡3¸`9°ÒÄÜ�â6ïel�gá6Ú—��É«²¼–p �5Ô—é�(¦ÄUO�
­£�øðqwL¬Õ·”¼³†ø–ú§³9bl¨ø~°à•œ‹Šé¶`_²££.•œ·jk�‡5�ëÆx�%ß�ê�Ì°´�q�µêiÕƒ¥˜�t�xmW¢øm��œJô&;�ˆ±�ÛÔŒµOHY?ÅüŒ- ¡’l˜†c9÷Îk÷E/G��çÆ!`�aá�qçÈ�þj6&Ó;ÄË9ñÈ0ñN8Û�o:sÎ7^™Oú'{�»d‘…SõÃ…g|H»xk�^×y>TÛÖd¨ù�Në>
Ô=o2û!dÝš°‡úÕó¿0<þãôÃõòzQ~.ù]g3%ßþ²þ�  ÿÿ� PK��� � �   ! v«�« �  ƒ�  � ��docProps/custom.xml ¢��(  �                                                                                                                                                                                                                                                                œ�=oƒ0�„÷Jý�–w°!J��!
�Ì�’î–1 ’¿ä×Тªÿ½FýÈÞñt§GwÇöïZ¡Yz�­©p–RŒ¤�¶�͵—ó)Ùa��›ž+kd…�   x_?>°�o�ôa”€"Â@…o!¸’��7©9¤Ñ6Ñ�¬×<Dé¯Ä�Ã(dgŤ¥   $§ô‰ˆ   ‚Õ‰ûÃáo^9‡ÿ"{+Övðz^\¬[³�ø‚��ƾÂ�ݶíº-Ý&ù±h“ŒfMRlŠç„î(Í›¼=�‡ã'Fn
ç��®ãô†ƒ¼x�ys(•{ƒàëu3ÄÑκIM�ò
X5…x&¤ÂjFîQF~kÔŒÜß«¿   ÿÿ� PK��- � � �   ! ¨˜©Ün�  •�  �                 [Content_Types].xmlPK��- � � �   ! �^¾e��  ß�  �             §�  _rels/.relsPK��- � � �   ! ��ê-è�  X    �             Ú�  xl/workbook.xmlPK��- � � �   ! J©¦aú   G�  �             ï
  xl/_rels/workbook.xml.relsPK��- � � �   ! o™Ò±Ì�  ³�  �             )
  xl/worksheets/sheet1.xmlPK��- � � �   ! 4�6£��  P�  �             +�  xl/worksheets/sheet2.xmlPK��- � � �   ! Á��¾N�  Æ   �             w�  xl/theme/theme1.xmlPK��- � � �   ! y¡€l¤�  R�  
             ö�  xl/styles.xmlPK��- � � �   ! ®¸m�œ   µ   �             Å�  xl/sharedStrings.xmlPK��- � � �   ! ¹e!1C�  i�  �             “�  docProps/core.xmlPK��- � � �   ! aI   �‰�  ��  �             
�  docProps/app.xmlPK��- � � �   ! v«�« �  ƒ�  �             Ì!  docProps/custom.xmlPK��      ��  �$    
--CFPwjDx3ULtXPCIcALxriO8HpAk0NTMf
Content-Disposition: form-data; name="name"
Content-Type: text/plain; charset=utf-8

Test1
--CFPwjDx3ULtXPCIcALxriO8HpAk0NTMf
Content-Disposition: form-data; name="type"
Content-Type: text/plain; charset=utf-8

Excel Report Template
--CFPwjDx3ULtXPCIcALxriO8HpAk0NTMf
Content-Disposition: form-data; name="DataSets"
Content-Type: text/plain; charset=utf-8

Test
--CFPwjDx3ULtXPCIcALxriO8HpAk0NTMf--

[rabsef-bicrym]

My file is just test.txt with the word “Test” in it. Sorry - that’s a confusing choice on my part. I am using your code to read the file in as UTF-8 from bytes as far as I understand it.

[zgrose]

Huh, seems so. Maybe my code doesn't work for text files? Seems like there is a lot of missing metadata for that file if all it is sending is Test. Or maybe browsers don't send that stuff, I'm not really an expert. Can you send non-text files to this API?

[rabsef-bicrym]

I sure can. I’ll try an xlsx file per the above ex in a few min

[zgrose]

In case it matters, there is no point in doing Debug.Print xhr.readyState right after the xhr.Open call.

[zgrose]

Also, looking at your example vs Postman again, you seem to have a lot more carriage returns than I would expect. Note how "compact" mine and Postman's form bodies look? IIRC, line breaks are significant in forms.

[rabsef-bicrym]

@zgrose The carriage return thing is perplexing. I'm getting the body by msgbox'ing strBody from inside the Function you described. I think that might be adding a second line of spacing per line but maybe I'm misreading my own code and how it's forming. I'll... try to think of a way of confirming that lol.

Also readyState was an epiphenomena of me trying to figure out why I couldn't get back the responseText without True being in place and some other googling yielding a need to pay attention to something about the state and waiting and so on. I'll kick it out.

[zgrose]

If you call Open in Async mode, you need to wait on the readyState. If you call Open in Sync mode, the Send call will block until it is done anyway. I presume that's what you found in the google machine. Blocking can make the UI freeze so I tend to go async whenever I can.