Outlook 2003 Reminder for Past Appointments

[JR]

This was a follow up on a previous post about reminders in outlook.

I was looking for a way to turn off reminders for all items that I added
prior to the current date and time (which was truely annoying). I could not
find any setting that does this in outlook if you know of one please let me
know!

What I ended up doing is writing some code to turn them off when the
appointment is added and I have listed it below for anyone else that is
annoyed by this "feature". To use it just open outlook go to tools, macro,
visual basic editor and paste the code in there. You will have to allow
macros to run in outlook for it to work.


Dim WithEvents oCalendarItems As Outlook.Items

Private Sub Application_Startup()

Dim oNS As Outlook.NameSpace
Set oNS = Application.GetNamespace("MAPI")
Set oCalendarItems = oNS.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub Application_Quit()
Set oCalendarItems = Nothing
End Sub


Private Sub oCalendarItems_ItemAdd(ByVal Item As Object)
Dim appt As Outlook.AppointmentItem
Set appt = Item

If appt.Start <= Now() Then
appt.ReminderSet = False
appt.Save
End If


End Sub