Wie kann ich die Anwendung.Erinnerung Veranstaltung?

Sind Sie mit WithEvents mit Ihren Reminder Veranstaltungen auf der objReminders Objekt, aber Sie sind nicht deklarieren, die subs zu entsprechen. In meinem code unten, bitte beachten Sie die objReminders_... gegen Ihre Application_... ABS.

Spielte ich mit Ihrem code in Outlook 2003 (ich habe nicht Office 2007, so kann ich nicht testen), und kam mit der folgenden:

Public WithEvents objReminders As Outlook.Reminders

Private Sub objReminders_Snooze(ByVal ReminderObject As Reminder)
    Call Send_Email_Using_VBA
    MsgBox ("Litigate!")
End Sub

Private Sub Class_Initialize()
    Set objReminders = Outlook.Reminders
End Sub

Umgesetzt mit diesem in ein normales code-Modul:

Sub test()

Dim rmd As New ReminderClass

rmd.objReminders.Item(1).Snooze 1 'Triggers objReminders_Snooze in class module
rmd.objReminders.Item(2).Snooze 1

End Sub

Nun, das ist eine Triggerung auf die Snooze Veranstaltung, die ich explizit nennen. Dies sollte jedoch auch für Sie arbeiten zu Triggern, wenn das Ereignis zuerst kommt (dies gilt nicht, soweit ich das beurteilen kann, die auslösen, wenn eine Erinnerung reaktiviert wird, eine Snooze). Ich habe keine Erinnerungen einrichten, um zu testen - wenn Sie Schwierigkeiten haben, darüber hinaus habe ich ein paar meiner eigenen tests mit Bezug auf, die.

Private Sub objReminders_ReminderFire(ByVal ReminderObject As Reminder)
    Call Send_Email_Using_VBA
    MsgBox ("Litigate!")
End Sub

Update:

Nach dem spielen, um mit diesem im Jahr 2010 fand ich die folgenden arbeiten (mindestens Feuer, aber es schien ständig Feuer):

Private Sub Application_Reminder(ByVal Item As Object)
    Call Send_Email_Using_VBA
    MsgBox ("Litigate!")
End Sub

Dies wurde in der ThisOutlookSession Objekt-Modul. Hat das hinzufügen dieses etwas für Sie tun?

Die eigentliche ANTWORT auf diese Frage ist die folgende:
Wenn Sie wiederkehrende Termine und putting-code in der Application_Reminder Veranstaltung auf einen Termin, der Reminder-Ereignis wird NICHT ausgelöst, wenn Sie ausdrücklich, richten Sie eine Erinnerung ein Zeitraum in der Dropdown-innerhalb der Termin selbst.

Spielte ich mit diesem für die Tage, die Veranstaltung wäre nie ausgelöst wird, es sei denn, es war ein einziger Termin - wiederkehrende nie gearbeitet.

Einstellung einen wiederkehrenden Termin mit einer Erinnerung der Zeit von 5 Minuten und alles funktioniert perfekt.

FYI hier ist etwas code, den ich verwenden zum senden von Benutzerinformationen (self password reset) - Erinnerungen auf einer monatlichen basis, mit E-Mail-Vorlagen gespeichert, die in einem lokalen Ordner. Funktioniert perfekt jetzt. Denken Sie daran, um erstellen Sie Ihre eigene Kategorie, wenn der Versand der auto-E-Mails genannt, etwas linke 'Mail Senden'. Jeder Termin muss festgelegt werden, zu dieser Kategorie und ist geprüft in den Sub.

    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem

       On Error Resume Next


    'IPM.TaskItem to watch for Task Reminders
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If

    If Item.Categories <> "Send Mail" Then
      Exit Sub
    End If

     'Check which Template for Reminder we need to send by looking for the keyword in the Reminder Appointment

If InStr(Item.Subject, "e-Expenses Password Resets") > 0 Then
    Set objMsg = Application.CreateItemFromTemplate("C:\Reminder Emails\e-Expenses Resetting your own password.oft")

ElseIf InStr(Item.Subject, "e-Learning Password Resets") > 0 Then
    Set objMsg = Application.CreateItemFromTemplate("C:\Reminder Emails\e-Learning Resetting your own password.oft")

ElseIf InStr(Item.Subject, "EMIS Password Resets") > 0 Then
    Set objMsg = Application.CreateItemFromTemplate("C:\Reminder Emails\EMIS Web Resetting your own password.oft")

ElseIf InStr(Item.Subject, "NHS email Password Resets") > 0 Then
    Set objMsg = Application.CreateItemFromTemplate("C:\Reminder Emails\NHS Net eMail Resetting your own password.oft")

ElseIf InStr(Item.Subject, "STRATA Password Resets") > 0 Then
    Set objMsg = Application.CreateItemFromTemplate("C:\Reminder Emails\STRATA Resetting your own password.oft")

ElseIf InStr(Item.Subject, "VPN Password String Resets") > 0 Then
    Set objMsg = Application.CreateItemFromTemplate("C:\Reminder Emails\VPN Resetting your own password.oft")

Else: Exit Sub

End If

 'Location is the email address we send to, typically to ALL users
  objMsg.To = Item.Location
  objMsg.Subject = Item.Subject  'Make the subject of the Appointment what we want to say in the Subject of the email
  objMsg.Send


  Set objMsg = Nothing
End Sub

Spaß haben.

Dave Thomas