OAUTH проблема с VBA не публикует grant_type

Question

это мой фрагмент кода

Public Sub authjson()
 Dim http As Object, JSON As Object, i As Integer



Set http = CreateObject("MSXML2.XMLHTTP")



http.Open "POST", "https://foo.bar.com/oauth/login", False
http.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/79.0.3945.123 Safari/537.36"
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Accept", "application/json"
http.setRequestHeader "grant_type", "password"
http.setRequestHeader "client_id", "2"
http.setRequestHeader "client_secret", "foobar-api"
http.setRequestHeader "username", "foo"
http.setRequestHeader "password", "bar"
http.send
MsgBox (http.responsetext)



 End Sub

Администратор утверждает, что я не отправляю тип предоставления в заголовках. Есть ли проблема в коде, который я не вижу?