我的代码是写到Technic_Paint中的，大致功能为在触发条件时生成一条信息发送到QQ群中
现在的不正常工作为：
1、启动VBA时第一次正常工作，默认触发条件可以正常发送消息
2、在VBA启动后金字塔放那里，当新触发条件时发送消息不正常。非常奇怪的是我刚开始以为是条件没有触发，结果用Application.MsgOut可以跟踪到消息已经生成，就是调用发送消息不成功（也没有任何报错）
代码逻辑非常非常简单，就是启动后第一次发送是成功的
我的金字塔是运行在服务器上（操作系统为windows server 2003），基本无人值守的，目前用的是免费版（自己工作站看盘用的是收费版）。
谢谢！
谢谢回复
我这边都是win7的系统，这下真麻烦了
WIN7也可以的，主要试试本地是否正常运行，排除是否是服务器环境因素导致
谢谢回复
目前服务器环境很难动的
我改变了解决方案，将改变定时发布到web上，然后通过自己开发的手机程序定期轮询web获取变更
我要求的时效性没有那么高