钉钉POST发送通知消息，哪位能帮忙一下，多谢多谢

weixin_40931630 2019-07-11 01:26:08

...全文

530 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

ASP微信支付 APIV3 2019-07-18

打赏
举报

测试正常！！

weixin_40931630 2019-07-13

打赏
举报

还是一样，没起作用。

ASP微信支付 APIV3 2019-07-12

打赏
举报

Dim objXmlHttp
str = "{""agent_id"":270460515,""userid_list"":""2739196248-112889674"",""msgtype"":""text"",""msg"":{""msgtype"":""text"",""text"":{""content"":""推送测试""} }}"
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST","https://oapi.dingtalk.com/topapi/message/corpconversation/asyncsend_v2?access_token="&accesstoken&"",False
objXmlHttp.SetRequestHeader "Content-Type","application/json"
objXmlHttp.SetRequestHeader "User-Agent","ASP/3.0"
objXmlHttp.Send str

if objXmlHttp.status=200 Then
ASPPostJSON=CStr(objXmlHttp.ResponseText)
end if

Response.write(ASPPostJSON)

weixin_40931630 2019-07-11

打赏
举报

<%

Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST","https://oapi.dingtalk.com/topapi/message/corpconversation/asyncsend_v2?access_token="&accesstoken&"",False
objXmlHttp.SetRequestHeader "Content-Type","application/json"
objXmlHttp.SetRequestHeader "User-Agent","ASP/3.0"
objXmlHttp.Send "{""agent_id"":270460515,""userid_list"":2739196248-112889674,""msgtype"":text,""msg"":{""msgtype"":text,""text"":{""content"":推送测试} }""}"

if objXmlHttp.status=200 Then
ASPPostJSON=CStr(objXmlHttp.ResponseText)
end if

Response.write(ASPPostJSON)
%>