Foxtable(狐表)用户栏目专家坐堂 → [求助]企业微信自动回复问题


  共有2967人关注过本帖树形打印复制链接

主题:[求助]企业微信自动回复问题

帅哥哟,离线,有人找我吗?
km007
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:5761 威望:0 精华:0 注册:2016/1/28 2:59:00
[求助]企业微信自动回复问题  发帖心情 Post By:2023/10/13 11:22:00 [只看该作者]

需求:我想自动回复的文字内容待URL链接的(点击文字即可跳转至 指定的URL)

问题:如下代码中,自动回复的内容不是显示“您好!请点这里百度搜索” ,而是显示 为 "您好!<a href='https://www.baidu.com/baidu?wd=刘德华是谁'>请点这里百度搜索</a>"

代码如下:

Dim wbiz As New WXBizCrypt(vars("ccccc"),vars("ttttt"),vars("eeeee"))
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(msg)
Dim d As Date = Date.Today
Dim so As New Foxtable.XObject()
so("ToUserName") = ***
so("FromUserName") = ***
so("CreateTime") = (Date.Now - st).TotalSeconds()
so("MsgType")= "text"
so("Content") = "您好!<a href='https://www.baidu.com/baidu?wd=刘德华是谁'>请点这里百度搜索</a>"
msg = wbiz .EncryptMsg(e,so.ToXML )
If  IsNumeric(msg) Then
    Dim err As String = wbiz.GetErorDesc(CInt(msg))
Else
    e.WriteString(msg)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/10/13 11:33:00 [只看该作者]

这个微信自己的问题,文本模式本身就不支持链接。考虑改为图文消息

 回到顶部
帅哥哟,离线,有人找我吗?
km007
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:5761 威望:0 精华:0 注册:2016/1/28 2:59:00
  发帖心情 Post By:2023/10/13 11:38:00 [只看该作者]

但是我是想实现多行内容,点击不同的行,跳转不同的链接

自动回复内容如下:

(1)刘德华是谁
(2)张学友在哪里开演唱会
(3)黎明现在很少出现
……
[此贴子已经被作者于2023/10/13 11:38:34编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/10/13 11:45:00 [只看该作者]

别人不支持,想再多都没有用。企业微信只有主动发送的文本消息支持链接,被动回复是不支持的

 回到顶部
帅哥哟,离线,有人找我吗?
km007
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:5761 威望:0 精华:0 注册:2016/1/28 2:59:00
  发帖心情 Post By:2023/10/13 11:54:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部