主题：[求助]金字塔往QQ发消息不正常工作

我的代码是写到Technic_Paint中的，大致功能为在触发条件时生成一条信息发送到QQ群中

现在的不正常工作为：

1、启动VBA时第一次正常工作，默认触发条件可以正常发送消息

2、在VBA启动后金字塔放那里，当新触发条件时发送消息不正常。非常奇怪的是我刚开始以为是条件没有触发，结果用Application.MsgOut可以跟踪到消息已经生成，就是调用发送消息不成功（也没有任何报错）

代码逻辑非常非常简单，就是启动后第一次发送是成功的

我的金字塔是运行在服务器上（操作系统为windows server 2003），基本无人值守的，目前用的是免费版（自己工作站看盘用的是收费版）。

谢谢！