Change ReminderTime on all of Today's Reminders

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
Appt.Save
End If

End If
Next


End Sub


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