Solved

Microsoft Outlook 2010 Reminders

Posted on 2014-03-17
3
402 Views
Last Modified: 2014-03-20
I have a user complaining he keeps getting reminders.  They get a lot of invitations but they do not respond because they are for informational purposes.  So my question is

Is there a way to disable reminders on calendar entries that have not been accepted?

Thank you
0
Comment
Question by:bidgadget
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 39936420
Hi, bidgadget.

I can manage that with a bit of scripting.  If that's an acceptable approach, then let me know and I'll post the code and instructions on how to use it.
0
 

Author Comment

by:bidgadget
ID: 39940821
very acceptable.  Thank you
0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 39941894
You're welcome.

Here's my solution.  It reads through the currently selected calendar and checks each entry to see if the ResponseStatus property is set to "not responded".  If it is, and if the item is a meeting (as opposed to an appointment the user created), then the item's reminder is cleared.  

Follow these instructions to use this solution.

1.  Start Outlook
2.  Press ALT+F11 to open the Visual Basic editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert -> Module.
6.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7.  Edit the code as needed.  I included comments wherever something needs to or can change
8.  Click the diskette icon on the toolbar to save the changes
9.  Close the VB Editor

Sub KillReminders()
    Const MACRO_NAME = "Kill Reminders"
    Dim olkFld As Outlook.MAPIFolder, olkApt As Outlook.AppointmentItem, lngCnt As Long
    Set olkFld = Application.ActiveExplorer.CurrentFolder
    If olkFld.DefaultItemType = olAppointmentItem Then
        For Each olkApt In olkFld.Items
            Select Case olkApt.ResponseStatus
                'If you want to clear the reminders on tentatively accepted appointments, then add olResponseTentative to the next line.
                Case olResponseNotResponded
                    If olkApt.MeetingStatus = olMeeting Then
                        olkApt.ReminderSet = False
                        olkApt.Save
                        lngCnt = lngCnt + 1
                    End If
            End Select
        Next
        MsgBox "Processing complete.  I cleared reminders on " & lngCnt & " items.", vbInformation + vbOKOnly, MACRO_NAME
    Else
        MsgBox "This macro only works when you have a calendar selected.  Please select a calendar, then run the macro.", vbCritical + vbOKOnly, MACRO_NAME
    End If
End Sub

Open in new window


To use this solution

1.  Select a calendar
2.  Run the macro KillReminders
0

Featured Post

Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Exchange 2007 SP upgrade 9 111
Excel 2013: Displaying times in Milliseconds 6 331
SCCM 2012 - Backup and Recovery Best Practice 2 142
Access DB on open (All Objects) 5 76
I wanted to share this with fellow Experts, who might not know. How often have you wanted to learn something, only to be set back by either restrictions imposed on "trial" or "evaluation" software?  How often have you had to rebuild a home networ…
This collection of functions covers all the normal rounding methods of just about any numeric value.
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…

752 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