Change the default time of 18hrs for an all day event Reminder

We have an MS Exchange server 2007 and clients use Outlook 2010. Whe people create all day events they leave the default time of 18hrs and staff get messages at 6AM in the morning on their mobile devices.

How can we change this to 12 hours?
Who is Participating?
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.

DhananjayTechnical ConsultantCommented:

unfortunately the default reminder time (18hrs) for all day events is not user- configurable.
This means you have to change the reminder time for every all day event individually.

A workaround could be to set up a macro that changes the reminder time for all day events, but I am not sure if this is what you are looking for.

Here are a few links pointing to various macro solutions:
WeanAuthor Commented:
This might be my soloution, but i cant get this working using Outlook 2010

IN the Macro it stops on Part Three

Set oCalendar = Application.Session.GetDefaultFolder(olFolderCalen dar)

Option Explicit

Sub SetDailyReminderDurations()

' From
' Modified by StuartR to work on Outlook 2003 and to set reminder to 12 hours (rather than clearing it)

Dim daStart, daEnd As Date
Dim oCalendar ' As OutlookFolder
Dim oItems As Outlook.Items
Dim oItemsInDateRange As Outlook.Items
Dim oFinalItems As Outlook.Items
Dim oAppt As Outlook.AppointmentItem
Dim strRestriction As String
Dim Debuglog
Dim CurrentTitle As String

' Set the date range for the appointments query -
' It is set below to start at todays date and
' end at todays date + 120 days (or 4 months)
' You can increase or reduce this based on your PCs performance

daStart = Format(Date, "mm/dd/yyyy hh:mm AMPM")
daEnd = DateAdd("d", 120, daStart)
daEnd = Format(daEnd, "mm/dd/yyyy hh:mm AMPM")
Debuglog = "1 Start: " & daStart
Debuglog = Debuglog & ", " & "1 End: " & daEnd

' Construct a filter for the next 120-day date range.
strRestriction = "[Start] >= '" & daStart _
& " ' AND [End] <= '" & daEnd & " '"
Debuglog = Debuglog & ", " & "2 " & strRestriction

' The macro obtains the set of appointment items in the default calendar
' specified by the current Outlook user profile.

Set oCalendar = Application.Session.GetDefaultFolder(olFolderCalen dar)
Set oItems = oCalendar.Items

' To include recurring appointments, sort by using the Start property.
oItems.IncludeRecurrences = True
oItems.Sort "[Start]"

' Restrict the Items collection for the 1110-day date range.
Set oFinalItems = oItems.Restrict(strRestriction)

' Go through each calendar item remaining in turn
' If it isn't a full Day event do nothing
' If it is then (if Reminder is set to 18 hours) set Reminder to 12 hours.
oFinalItems.Sort "[Start]"
For Each oAppt In oFinalItems
Debuglog = Debuglog & ", " & "6 " & oAppt.Start & ", " & _
oAppt.Subject & ", " & oAppt.ReminderMinutesBeforeStart
CurrentTitle = oAppt.Subject
If oAppt.AllDayEvent = False Then
' Check if this appointment has an 18 hour reminder, if so change it to 12 hours
If oAppt.ReminderMinutesBeforeStart = 18 * 60 Then oAppt.ReminderMinutesBeforeStart = 12 * 60
End If
Debuglog = Debuglog & ", " & "6 " & oAppt.Start & ", " & _
oAppt.Subject & ", " & oAppt.ReminderMinutesBeforeStart & vbNewLine & vbNewLine
Next oAppt

Debuglog = """"

End Sub

Open in new window

Simplify Active Directory Administration

Administration of Active Directory does not have to be hard.  Too often what should be a simple task is made more difficult than it needs to be.The solution?  Hyena from SystemTools Software.  With ease-of-use as well as powerful importing and bulk updating capabilities.


there seems to be an extra space on line 41 in the word "olFolderCalen dar".
Please try to remove that one.

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
If it still does not work, please have a look at this site:

Here is the originals of your macro - you have to scroll down to about the middle of the site to find the macros.
WeanAuthor Commented:
Need to remove the "CodeBox" from the top and bottom, works nicely
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.