• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2352
  • Last Modified:

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?
0
nourben
Asked:
nourben
  • 7
  • 4
1 Solution
 
David LeeCommented:
Hi, nourben.

I can do it with a script in Outlook.  Is that an acceptable option?
0
 
rmcxbCommented:
It's acceptable for me.  Can you pls assist with this?  
0
 
David LeeCommented:
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/
0
Creating Active Directory Users from a Text File

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.

 
rmcxbCommented:
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.  
0
 
David LeeCommented:
That will work in 2010 also.
0
 
rmcxbCommented:
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?
0
 
David LeeCommented:
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.  
0
 
rmcxbCommented:
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.  
0
 
David LeeCommented:
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

Open in new window

0
 
David LeeCommented:
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?
0
 
David LeeCommented:
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.
0
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

Featured Post

Has Powershell sent you back into the Stone Age?

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.

  • 7
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now