以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  QQClient.Send不能发送给分组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192519)

--  作者:g1j2h3
--  发布时间:2024/6/29 9:13:00
--  QQClient.Send不能发送给分组
麻烦老师看下下边的代码怎么发送不出去,也没任何提示
Dim r As Row = Tables("出库登记").Current
r.Save()
QQClient.Send("业务部" & "." & user.Name, "+@|" & r("_Identify") & "|" & r("出库单号") & "|" & User.Name & "|" & "出库登记", True)

--  作者:有点蓝
--  发布时间:2024/6/29 9:30:00
--  
msgbox("业务部" & "." & user.Name)弹出什么内容?这个用户登录了吗?

客户端ReceivedMessage事件写了什么代码接收?使用代码发送的必须到这个事件接收。ReceivedMessage事件第一行放上msgbox(e.Message)看能不能弹出,弹出什么内容?

--  作者:g1j2h3
--  发布时间:2024/6/29 9:40:00
--  
QQClient.Send("业务部" & "." & user.Name, "+@|" & r("_Identify") & "|" & r("出库单号") & "|" & User.Name & "|" & "出库登记", True)
前面的名字不是业务部人员的名字,他和后边的名字一样
QQClient.Send("业务部.张三", "+@|" & r("_Identify") & "|" & r("出库单号") & "|" & User.Name & "|" & "出库登记", True)
这样可以发送
[此贴子已经被作者于2024/6/29 10:43:11编辑过]

--  作者:有点蓝
--  发布时间:2024/6/29 10:39:00
--  
那接收人就改为正确的部门和接收名称呀
--  作者:g1j2h3
--  发布时间:2024/6/29 10:44:00
--  
将来人员名称变了,我是不是要更改代码,这样的话,交付客户使用是不是很不方便啊
[此贴子已经被作者于2024/6/29 10:45:45编辑过]

--  作者:有点蓝
--  发布时间:2024/6/29 11:08:00
--  
那就建一个类似的权限表,记录什么功能的什么信息需要发给哪个部门哪个用户。然后通过查询获取接收人并发送