1、增加一个计划，每分钟执行一次（也就是60000毫秒），判断当前时间是否是12点，如果是的，就提示。 计划代码
If Date.now.Hour = 12 Then messagebox.show("开始午休")End If
2、另外增加一个计划，没20分钟执行一次(也就是1200000毫秒)，计划代码：
Forms("窗口名").Open()
加好友 
发短信
Post By：2011/12/11 20:10:00 [显示全部帖子]
