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?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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
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


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
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.
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

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.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.