vba - Excel VBA RingCentral FaxoutAPI からの HTTP ポスト

Question

このコードを機能させるには助けが必要です。私は、VBA でのプログラミングだけでなく、HTTP ポストとフォームに関連するものもまったく初めてです。ここで質問を読み、API ヘルプに従って、機能するようにあらゆることを試みましたが、何も機能していないようです。

API リファレンスを見つけることができる Web サイトは次のとおりです: http://service.ringcentral.com/faxoutapi/

また、これまでに持っているコードは次のとおりです。

Sub POST()
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim strURL As String
Dim PostData As String
strURL = "https://service.ringcentral.com/faxapi.asp"
Const Boundary As String = "---------------------------7d54b1fee05aa"
WinHttpReq.Open "POST", strURL, False

WinHttpReq.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary

PostData = "--" & Boundary & vbCrLf
PostData = PostData & "Content-Disposition: form-data; name=""Username""" & vbCrLf
PostData = PostData & "username" & vbCrLf
PostData = PostData & "--" & Boundary & vbCrLf
PostData = PostData & "Content-Disposition: form-data; name=""Password""" & vbCrLf
PostData = PostData & "password" & vbCrLf
PostData = PostData & "--" & Boundary & vbCrLf
PostData = PostData & "Content-Disposition: form-data; name=""Recipient""" & vbCrLf
PostData = PostData & "faxnumber" & vbCrLf
PostData = PostData & "--" & Boundary & vbCrLf
PostData = PostData & "Content-Disposition: form-data; name=""Coverpagetext""" & vbCrLf
PostData = PostData & "This is a test fax from web" & vbCrLf
PostData = PostData & "--" & Boundary & vbCrLf

WinHttpReq.Send (PostData)
MsgBox WinHttpReq.ResponseText

End Sub

一般的なエラーを意味する 5 の応答値を取得し続けます。フォームが正しい形式と一致していないと確信しています。また、API のリファレンスに示されているように、ファイルをアップロードできるようにしたいと考えています。

前もって感謝します