Application_Reminder Problem

  • Thread starter Thread starter Joerg Fuhrmann
  • Start date Start date
J

Joerg Fuhrmann

I wrote a Application_Reminder Routine that sends an email if the tasks
that fires this event has a certain subject. When i have two or more
Tasks at the same day the reminder pops up and lists the different
Items inside this reminder window. So far, so good, but how could my
code get access to the different items that appear in the reminder
window?
 
Use the Application.Reminders collection, which contains all active
reminders. Those that due will have the IsVisible property set to True
(which means those will be the ones listed in the Reminders window; the rest
have been dismissed or their reminder date is not due yet).

Dim objRems As Outlook.Reminders
Dim objRem As Outlook.Reminder
Dim intX As Integer

Set objRems = Application.Reminders

For intX = 1 To objRems.count
Set objRem = objRems.Item(intX)
Debug.Print objRem.Caption; "; Visible: " & objRem.IsVisible
Next
 
Back
Top