?
Solved

How to automaticaly dismiss overdue reminder

Posted on 2011-03-09
13
Medium Priority
?
2,144 Views
Last Modified: 2012-05-11
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
Comment
Question by:nourben
  • 7
  • 4
11 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 35083730
Hi, nourben.

I can do it with a script in Outlook.  Is that an acceptable option?
0
 

Expert Comment

by:rmcxb
ID: 35443860
It's acceptable for me.  Can you pls assist with this?  
0
 
LVL 76

Expert Comment

by:David Lee
ID: 35444326
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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Expert Comment

by:rmcxb
ID: 35444350
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
 
LVL 76

Expert Comment

by:David Lee
ID: 35444397
That will work in 2010 also.
0
 

Expert Comment

by:rmcxb
ID: 35444433
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
 
LVL 76

Expert Comment

by:David Lee
ID: 35444475
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
 

Expert Comment

by:rmcxb
ID: 35444648
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
 
LVL 76

Accepted Solution

by:
David Lee earned 2000 total points
ID: 35444713
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
 
LVL 76

Expert Comment

by:David Lee
ID: 35741180
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
 
LVL 76

Expert Comment

by:David Lee
ID: 35742870
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

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this post, I will showcase the steps for how to create groups in Office 365. Office 365 groups allow for ease of flexibility and collaboration between staff members.
MS Outlook undoubtedly is the most widely used email client.Its user-friendliness, cost effectiveness, and availability with Microsoft Office Suite make it the most popular email application.  Its compatibility with Microsoft applications like Exch…
This video discusses moving either the default database or any database to a new volume.
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
Suggested Courses
Course of the Month17 days, 6 hours left to enroll

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question