Outlook Напоминания к сценарию электронной почты - но не может уклониться

Question

Я изучил предыдущие ответы и пробовал много вариантов ниже, но я не могу заставить его работать.

В основном, целью сценария ниже является включение напоминаний Outlook в сообщения электронной почты.

Однако я не могу программным образом отклонить напоминания. Я рассмотрел предыдущие ответы на эти вопросы (например, this one) и попытался их реализовать, но они, похоже, не преуспели в этой конфигурации.

' declare this object withEvents displaying all the events 
Private WithEvents olRemind As Outlook.Reminders 
Private Sub Application_Reminder(ByVal Item As Object) 
    Dim objMsg As MailItem 
    Dim objRem As Reminder 
    Dim olRemind As Reminders 
    Set olRemind = Outlook.Reminders 
    Set objMsg = Application.CreateItem(olMailItem) 
    objMsg.To = "*ADDRESS REMOVED FROM EXAMPLE*" 
    objMsg.subject = "MHReminder: " + Item.subject 
    objMsg.Body = Item.Body 
    Set objMsg.SaveSentMessageFolder = Session.GetDefaultFolder(olFolderDeletedItems) 
    objMsg.Send 
    Set objMsg = Nothing 
End Sub 

Private Sub olRemind_BeforeReminderShow(Cancel As Boolean) 

    For Each objRem In olRemind 
     If objRem.IsVisible = True Then 
      objRem.Dismiss 
      Cancel = True 
     End If 
    Exit For 
    Next objRem 

End Sub 

Я немного больше «ляп-и-сращивание» программист чем истинный программист, поэтому был бы признателен кто-нибудь, указывая на мою (надеюсь, очевидная) ошибка.

Спасибо ...

Answer 1

Вы смотрите на первое найденное напоминании затем бросить курить с

Exit For 

Как и в примере вы нашли Dismiss Outlook reminder вам нужно что-то вроде

For Each objRem In objRems 
    If objRem.Caption = "TESTING" Then ' <-- 
     If objRem.IsVisible Then 
      objRem.Dismiss 
     End If 
     Exit For 
    End If 
Next objRem 

Answer 2

Отменить параметр в обработчике события BeforeReminderShow должно быть ByRef.