如何通过Outlook VBA关闭或关闭Outlook提醒

Question

我想在某个时间在Outlook中运行宏，所以我使用Outlook提醒来执行此操作。我编写了下面的代码，它成功运行了宏，但在完成了If语句之后，它会弹出我不需要看的提醒，因此需要关闭/关闭它。

Public Sub Application_Reminder(ByVal Item As Object)
If Item.Subject = "Refresh Data Test" Then
    Call RunExcelMacros.TestRun
End If
End Sub

请有人帮忙建议我如何解雇提醒？

Answer 1

好吧，我想我已经得到了 - 下面似乎工作，所有代码都在“ThisOutlookSession”模块中设置：

Private WithEvents OutlookReminders As Outlook.Reminders

Public Sub Application_Reminder(ByVal Item As Object)
Set OutlookReminders = Outlook.Reminders
If Item.Subject = "Refresh Data Test" Then
    Call RunExcelMacros.TestRun
End If
End Sub

Private Sub OutlookReminders_BeforeReminderShow(Cancel As Boolean)
Dim OutlookReminder As Reminder
'After the "Application_Reminder" has run it will then run this code straight after which stops the reminder from actually popping up
    For Each OutlookReminder In OutlookReminders
        If OutlookReminder.Caption = "Refresh Data Test" Then
            If OutlookReminder.IsVisible Then
                OutlookReminder.Dismiss
                Cancel = True
            End If
            Exit For
        End If
    Next OutlookReminder
End Sub