MS Outlook 2007 - appointments do not save any reminder information

I'm using Outlook 2007 and when accepting meeting requests my calender entries do  not save the reminder time.

e.g default time of 15 minutes before - even though the sender has also included this and i have it setup in my outlook properties.

Is there anyway that i can automatically reset all entries in my calendar to have a reminder setting of 15 minutes again?

Who is Participating?
David LeeCommented:
Hi, bs_user.

The code below will reset the reminder on all appointments that have not already passed.  Follow these instructions to add the code to Outlook.

1.  Start Outlook
2.  Click Tools > Macro > 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

To use the code

1.  Run the macro
Sub ResetReminders()
    Dim olkFolder As Outlook.Items, olkAppointment As Outlook.AppointmentItem
    Set olkFolder = Session.GetDefaultFolder(olFolderDeletedItems).Items
    For Each olkAppointment In olkFolder
        If olkAppointment.Start >= Now Then
            olkAppointment.ReminderMinutesBeforeStart = 15
            olkAppointment.ReminderSet = True
        End If
    Set olkFolder = Nothing
    Set olkAppointment = Nothing
    msgbox "Reminders reset.", vbInformation + vbOKOnly, "Reset Reminders"
End Sub

Open in new window

JohnBusiness Consultant (Owner)Commented:
That does not happen in my Outlook 2007, so you wish to look at repairing Outlook, doing all updates, and then in then end, reinstalling Office.

However to your question, appointment reminders are individual and cleared individually at the meeting comes up and then dismissed. So I do not think there is any way to reset all meeting reminders. In particular, I don't think you would want all past meetings to get new reminders, for example.

... Thinkpads_User
bs_userAuthor Commented:
Hi BlueDevilFan,

many thanks for your detailed instructions and code.

When I try to run the macro I am presented with a Run-time error '13': Type mismatch

If I then select the debug option it takes me to the code and the 'Next' option is highlighted?  Are you able to advise if I need to ammend anything further in this script?

My apologies as I am not a VB expert.

Many thanks.
Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

David LeeCommented:
My fault.  I have a typo on line 3.  Please replace it with

    Set olkFolder = Session.GetDefaultFolder(olFolderCalendar).Items
bs_userAuthor Commented:
That's worked perfectly, thank you for your assistance! :)
David LeeCommented:
You're welcome.  Glad I could help.
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.

All Courses

From novice to tech pro — start learning today.