Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://eco.taobao.com/router/rest")
Dim req As DingTalk.Api.Request.CorpMessageCorpconversationAsyncsendRequest = New DingTalk.Api.Request.CorpMessageCorpconversationAsyncsendRequest()
req.Msgtype = "oa"
req.AgentId = 123456
'req.UseridList = "zhangsan,lisi"
'req.DeptIdList = "123,456"
req.ToAllUser = True
req.Msgcontent = "{""message_url"": ""http://dingtalk.com"",""head"": {""bgcolor"": ""FFBBBBBB"",""text"": ""头部标题""},""body"": {""title"": ""正文标题"",""form"": [{""key"": ""姓名:"",""value"": ""张三""},{""key"": ""爱好:"",""value"": ""打球?听音乐""}],""rich"": {""num"": ""15.6"",""unit"": ""元""},""content"": ""大段文本大段文本大段文本大段文本大段文本大段文本大段文本大段文本大段文本大段文本大段文本大段文本"",""image"": ""@lADOADmaWMzazQKA"",""file_count"": ""3"",""author"": ""李四 ""}}"
Dim rsp As DingTalk.Api.Response.CorpMessageCorpconversationAsyncsendResponse = client.Execute(req,Functions.Execute("GetAccessToken"))
Console.WriteLine(rsp.Body)
[此贴子已经被作者于2018/7/25 22:05:15编辑过]
加好友 
发短信
Post By：2018/7/24 17:11:00 [显示全部帖子]
