-
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!
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules