高分求一个outlook 中监控约会的VBA？

[tass]

在outlook的日历中新建一个约会，并设置好提醒时间。现在求一个VBA可以实现监控这个约会，当它到达约定的时间弹出提醒对话框后，这个ＶＢＡ自动向网络中的一台或几台电脑发送一条信息（就像通过net send控制台命令来发送信息一样），或者执行一个批处理命令（我可以把net send命令写到批处理中，然后通过VBA执行它）。

[homesos]

查阅一下MSDN中，outlook知识库，有类似的文章。

[arong1234]

加以下一段代码就可以trigger事件，但是问题在于无法执行系统命令

Private Sub Application_Reminder(ByVal Item As Object)
MsgBox Item.Subject & " is triggered"
End Sub


可以在上面函数中给自己发送一段特殊的邮件（如Subject是特殊字符串的邮件），然后利用Rule去执行脚本

发送邮件的方式是：
Private Sub Application_Reminder(ByVal Item As Object)
Dim oMail As New MailItem
oMail.Subject = "[Reminder]:" & Item.Subject
oMail.To = Application.Session.CurrentUser
oMail.Send
Set oMail = Nothing
End Sub

在收到邮件后，在rules and alerts中创建一个规则，对于收到邮件进行检查，如果收到以[Reminder]:开头的，去执行一个脚本即可