Question

我需要帮助让这段代码正常工作。我完全擅长VBA编程以及与HTTP Post和表单相关的任何事情。我已经尝试通过在这里阅读问题并遵循API帮助来完成所有工作，但似乎没有任何工作。

以下是可以找到API参考的网站： 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的参考文献中所示的文件。

提前致谢

Answer 1

FaxOut.asp API 端点已于 2018 年 8 月 9 日停止使用。

在此处查看更多信息：

https://support.ringcentral.com/article/Legacy-API-End-of-Life-Announcement-RingOut-asp-FaxOut-asp.html

在以下位置使用新端点：

https://platform.devtest.ringcentral.com/restapi/v1.0/account/{accountId}/extension/{extensionId}/fax

https://developers.ringcentral.com/api-reference/Fax/createFaxMessage

来自Excel VBA RingCentral FaxoutAPI的HTTP发布

1 个答案: