Hi All,

You've been really helpful in the past - I'm hoping to try my luck again..

I already have some VBA which runs on Item_Add email to assign a reminder. Then on Application_Reminder further code runs.

I want to give employees a chance to receive all their day's reminders (& thus the follow on VBA & associated actions) in one go if they so wish, i.e. be pro-active & deal with the reminders at the beginning of the day. I've found the code below, but I need some help with some changes;

1. The below code runs on Items which have been selected - I want it to run on any Reminder which has a ReminderTime of Today.
2. I only want the below code to impact those Reminders that been set originally from an email item, the below references Appointments, so I'm not sure it's quite the same...?

Private Sub ChangeReminderSelected()
Dim Item As Object
Dim Appt As Outlook.AppointmentItem

For Each Item In ActiveExplorer.Selection
On Error Resume Next

If TypeOf Item Is Outlook.AppointmentItem Then
Set Appt = Item

If Appt.ReminderSet = True Then
Appt.ReminderTime = Now
End If

End If

End Sub

Can anyone help me with either of those?
Thank you!