标题：QQClient.Send不能发送给分组

1楼

g1j2h3 发表于：2024/6/29 9:13:00

麻烦老师看下下边的代码怎么发送不出去，也没任何提示

Dim r As Row = Tables("出库登记").Current

r.Save()

QQClient.Send("业务部" & "." & user.Name, "+@|" & r("_Identify") & "|" & r("出库单号") & "|" & User.Name & "|" & "出库登记", True)

2楼

有点蓝 发表于：2024/6/29 9:30:00

msgbox("业务部" & "." & user.Name)弹出什么内容？这个用户登录了吗？

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

3楼

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

4楼

有点蓝 发表于：2024/6/29 10:39:00

那接收人就改为正确的部门和接收名称呀

5楼

g1j2h3 发表于：2024/6/29 10:44:00

将来人员名称变了，我是不是要更改代码，这样的话，交付客户使用是不是很不方便啊

[此贴子已经被作者于2024/6/29 10:45:45编辑过]

6楼

有点蓝 发表于：2024/6/29 11:08:00

那就建一个类似的权限表，记录什么功能的什么信息需要发给哪个部门哪个用户。然后通过查询获取接收人并发送

共6 条记录, 每页显示 10 条, 页签: [1]