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编辑过]