If your organization has a need to mass-create AD user accounts, watch this video to see how its done without the need for scripting or other unnecessary complexities.
How to automaticaly dismiss overdue reminder
We a user that access about 15 calendars and she gets about 5000 reminders and that's her a good 5 minutes for outlook to load, most of them are overdue, is there a way to automaticaly dismiss overdue reminders?
Asked:
7
4
1 Solution
Love to. Here's a link to a post on my blog where I show how to do this.
http://techniclee.wordpress.com/2011/04/01/killing-overdue-reminders-in-outlook/
http://techniclee.wordpress.com/2011/04/01/killing-overdue-reminders-in-outlook/
Funny, I saw this before signing up for Experts-Exchange. Thanks for this but I'm trying to determine how to do this in Outlook 2010.
I suppose my issue is then that I don't see how to get into Visual Basic Editor. The closest I can come to finding anything about macros is under Trust Center > Trust Center Settings > macro settings. How do the steps relate to 2010?
Sorry, I thought you were saying that you didn't think the solution would work for 2010. I haven't written step by step instructions for 2010 yet. ALT+F11 will open the editor.
I didn't know about Alt-F11 -- Thank you! I was able to walk my way through creating the macro and is brought me down from 81 to 51 to 36 to 21 to 15 > I had to re run the macro a few times, but still, it worked!! Now to apply it to my managers system where he has hundreds of old reminders. Thanks mate.
Oops. You just discovered a bug. The loop through the reminders is missing some. I just corrected the code. Grab the revised copy (below) and you should be in business.
Private Sub Application_Startup()
KillOverdueReminders
End Sub
Sub KillOverdueReminders()
' Purpose: Kills all reminders for past due appointments.'
' Usage: Run at Outlook startup to eliminate reminders on appointments that occur in the past.'
' Written: 4/1/2011'
' Author: David Lee'
' Outlook: All versions'
Const GRACE_PERIOD_MINUTES = 60
Dim olkReminder As Outlook.Reminder, intIndex As Integer
For intIndex = Application.Reminders.count To 1 Step -1
Set olkReminder = Outlook.Reminders.Item(intIndex)
If olkReminder.Item.Class = olAppointment Then
If DateAdd("n", GRACE_PERIOD_MINUTES * -1, Now) > olkReminder.NextReminderDate Then
olkReminder.Dismiss
End If
End If
Next
Set olkReminder = Nothing
End Sub
Sorry, but I have to object to the notion that I "Did not get the right answer". The solution I posted works. How is that not the right answer?
My recommendation is to accept post http:a35444713 as the answer and award it the points. The solution does work, as verified by rmcxb. The initial post did have a a minor code error which I corrected in the post I'm recommending.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
I can do it with a script in Outlook. Is that an acceptable option?