Changing the deafult reminder time on Outlook All Day Events without turning off reminders

Question

Hi All,
This has been something that has bugged me for years but now even more so I (and my colleagues) have work phones linked with exchange. I am tired of being woken up at 6am the day before an all day event has been set in my calendar.
I have multiple people update my calendar and the reminder time is not always cleared on an all day event. I (and others) want to keep a default reminder time set as it is a useful addition to the majority of calendar appointments, but for the life of me I
can't fathom out how to change the default 18 hour reminder time that is set on All Day events.
I have never understood why MS have made this reminder time set to eighteen hours, which means that the reminder always goes off at 6am, before the majority of office people wake.
We currently use Outlook 2007, but will probably update to 2010 in the foreseeable future.
If this can't be set in Outlook (?!?!?) can it be forced as an administrative policy?
ChrisChris

Answer 1

Hi Chris,
This has been asked for before, but there are no current plans to change the default of "18 hours" or to allow a means to modify the value.
As a workaround, you can use code in a macro, script, COM Add-in, etc. to reset the Reminder time to something more adequate to your needs.
DISCLAIMER: The code is provided only as a courtesy to our customers. It is not supported in any way by Microsoft.
Dim oApp As Outlook.Application
Dim calFolder As Outlook.Folder
Dim items As Outlook.items
Dim appt As Outlook.AppointmentItem
Dim i As Integer
Set oApp = CreateObject("Outlook.Application")
Set calFolder = oApp.Session.GetDefaultFolder(olFolderCalendar)
Set items = calFolder.items
For i = items.Count To 1 Step -1
If items.Item(i).Class = Outlook.olAppointment Then
Set appt = items.Item(i)
If appt.AllDayEvent = True Then
If appt.ReminderMinutesBeforeStart = 1080 Then  '1080 = 18 hours X 60 minutes
appt.ReminderMinutesBeforeStart = 60  '60 minutes
appt.Save
End If
End If
End If
Set items = Nothing
Set calFolder = Nothing
Set appt = Nothing
Set oApp = Nothing
I have emailed the Outlook Feature Requests alias on this. This is monitored directly by the
Outlook Product team. Additionally, you can call in and open a support incident regarding this issue and we can investigate this further. 
Hope that helps!
Jahawk MSFT