主题：金字塔发送邮件和QQ消息的相关问题

各位大侠，终于对往QQ或群里发消息的问题有弄通了，其实只用两句语句就可以了，在这里还是要感谢发布原帖的“宽客哥”，没有它的思路也不会往这方面想，还要感谢管理员的帮忙和各位热心的大牛的帮助。

这里将我精简后的代码与大家分享

set mail= CreateObject("WWSCommon.TCGroup") 
     call mail.TransMessage("5折", "hello, this is test message! ")

只要这两句其实就够了，将这两句将入到别的功能里面就能一起执行了。

但是还是发现有一个问题就是，我是将这个功能和数据中断发送邮件一起使用的。在发生数据异常后会发送邮件和QQ报警，我发现这个会一直发弄邮件和QQ消息只要数据不恢复正常就每隔1秒一次，我想问一下有没有什么方法可以来解决这个问题，当数据中断的时间比设定的时间差大时，只让他报一次警就可以了，或者在数据恢复之间每隔多少秒才报一次警，而不是那么频繁呢。