我试着按照这个例子: http: //libkod.info/officexml-CHP-9-SECT-5.shtml - Archive.org - Donate
但它给出了这个错误
在这条线上:
Dim objHTTP As New MSXML2.XMLHTTP
我尝试使用此示例:如何使用 VBA 从 Excel 向服务器发送 HTTP POST 请求?
但它给出了这个错误:
在这条线上:
Print objHTTP.Status
那么如何在 VBA 中进行 POST REST 调用呢?如何在 VBA 中进行 PUT 多部分/表单数据文件上传 REST 调用?
工具 > 参考
代码
Sub SendEmail()
'Dim objHTTP As New MSXML2.XMLHTTP
'Set objhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://localhost:8888/rest/mail/send"
objHTTP.Open "POST", URL, False
objHTTP.send ("{""key"":null,""from"":""me@me.com"",""to"":null,""cc"":null,""bcc"":null,""date"":null,""subject"":""My Subject"",""body"":null,""attachments"":null}")
Print objHTTP.Status
Print objHTTP.ResponseText
End Sub
参考
WinHttpRequest 对象: http: //msdn.microsoft.com/en-us/library/windows/desktop/aa384106 (v=vs.85).aspx