Outlook宏触发提醒

Question

我已经使用VBA for Excel已有一段时间了，但是现在我也需要使用Outlook，我发现自己有些失落。。

我们对收件箱的请求不断变化。如果电子邮件中有特定主题，并且收到该电子邮件的时间大约是两个小时，则需要触发提醒事件。

Private Sub Application_Reminder(ByVal Item As Object)
    Dim ns As NameSpace
    Dim Item As Object
    Dim inbox As Folder

    Set ns = GetNamespace("MAPI")
    Set inbox = ns.foldes("somefolder").Folders("Inbox")

    For Each Item In inbox.Items
        If InStr(1, Item.Subject, "someSubject") > 0 And Format(Item.ReceivedTime - Now, "hh:mm") = "02:00" Then
            MsgBox "someMsg"
        End If
    Next Item

End Sub

我想出了这段代码，但显然不起作用。另外，我还需要一直运行，并且与用户没有任何互动，除了关闭消息框外，当然..这是否可能导致Outlook崩溃？