QQClient.Send(NA ,msg ,True) 发不出信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → QQClient.Send(NA ,msg ,True) 发不出信息

共有1778人关注过本帖树形打印复制链接主题：QQClient.Send(NA ,msg ,True) 发不出信息

foxtable666

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：14 积分：201 威望：0 精华：0 注册：2017/4/1 20:19:00

QQClient.Send(NA ,msg ,True) 发不出信息 发帖心情

Post By：2017/4/6 17:03:00 [只看该作者]

求援！

Dim msg As String =" & USER.NAME & " & "请假,请审核,谢谢!"
Dim NA As String
NA = Forms("申请批准事务管理").Controls("TextBox5").Value
QQClient.Send(NA ,msg ,True)

发不出信息，不知为何，登录是成功的

我是想好友名从窗口控件取值，不知如何写发送信息的代码？

[此贴子已经被作者于2017/4/6 17:06:42编辑过]

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/6 17:06:00 [只看该作者]

可以打开聊天窗口吗？可以正常聊天吗？

代码改一改

Dim msg As String = USER.NAME & "请假,请审核,谢谢!"
Dim NA As String
NA = Forms("申请批准事务管理").Controls("TextBox5").Value

msgbox(NA)
QQClient.Send(NA ,msg ,True)

foxtable666

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：14 积分：201 威望：0 精华：0 注册：2017/4/1 20:19:00

Post By：2017/4/6 17:08:00 [只看该作者]

可以打开聊天窗口吗？可以正常聊天

我改下再试，谢谢！

[此贴子已经被作者于2017/4/6 17:09:04编辑过]

客人(220.174.*.*)

小大 4楼

Post By：2017/4/6 17:49:00 [只看该作者]

Dim msg As String = USER.NAME & "请假,请审核,谢谢!"
Dim NA As String
NA = Forms("申请批准事务管理").Controls("TextBox6").Value & "." & Forms("申请批准事务管理").Controls("TextBox5").Value
QQClient.Send(NA ,msg ,True)

把代码改成以上好了，原因是好友格式应为如：生产部.林海如单单是: 林海则不行.我原来的Forms("申请批准事务管理").Controls("TextBox5").Value=林海所以不行

现在NA = Forms("申请批准事务管理").Controls("TextBox6").Value & "." & Forms("申请批准事务管理").Controls("TextBox5").Value="生产部.林海" OK

下一主题 >> << 上一主题

主题：QQClient.Send(NA ,msg ,True) 发不出信息