VBAでAPIのPOST送信を実施したいがVBAでのボディに記載して送信方法がわかりません。

Question

VBAにてHTTPでPOST送信を実施しAPIに繋ぐプログラムを作成していますが、
GETのURL送信とは違ってボディ部分に記載しないといけないと、調べて知りました。

その際にVBA上でボディに記載し、レスポンスを受けとる方法の記事が
調べても見つけれない状況で、詰まっております。
VBAでやること自体が自由度が落ちると思いますが、実装できるようでしたら
ご教授していただけると助かります。

調べながら組んでみたプログラムを載せていますので、
使い方が違うなどもあれば、ご教授いただきたいと思っております。

Public Function test()

Dim url
　　url = "https://webapi/api"

Dim JsonObject As Object
　Set JsonObject = New Dictionary
　　JsonObject.Add "product", "～～"
　　JsonObject.Add "contract", "～～"

Dim apikey As String
Dim apitoken As String
　　apikey = "～～～"
　　apitoken = "～～～"

Dim objhttp As Object
　　Set objhttp = CreateObject("MSXML2.XMLHTTP")
　With objhttp
  　.Open "POST", url, False
  　.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  　.setRequestHeader "Content-Type", "application/json"
  　.setRequestHeader "Content-Type", "charset=UTF-8"
  　.setRequestHeader "Authorization", "Bearer " & apitoken               
  　.setRequestHeader "x-api-key", apikey
  　.send JsonConverter.ConvertToJson(JsonObject)
　　　Debug.Print 
　End With

End Function

Answer 1

JSON を送信したいなら、Content-Type は application/json; charset=UTF-8 を指定してください。
レスポンスの受け取り方については ttyp03 さんの回答にあるリンク先が参考になります。

  　'.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  　'.setRequestHeader "Content-Type", "application/json"
  　'.setRequestHeader "Content-Type", "charset=UTF-8"
  　.setRequestHeader "Content-Type", "application/json; charset=UTF-8"

Comments

[Ta-Jn]

返事おくれました。
ありがとうございます。助かります。

Answer 2

こちらのページ参考にならないでしょうか。

Comments

[Ta-Jn]

回答ありがとうございます。
参考ページ目を通しましたが、こちらの方法ですとパラメーターというのがURLになるのでしょうか？
もしくはこちらのパラメーターというのは、API先に決められた文言をいれてsendという
ことなのでしょうか？

[ttyp03]

パラメーターはparamStrですね。
APIで要求されているパラメーターを&で連結して指定するみたいですね。