• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 4004
  • Last Modified:

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?
  • 3
  • 2
1 Solution

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 http://thenewpaperclip.com/2008/04/15/chan...n-outlook-2007/
' 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

Free tool for managing users' photos in Office 365

Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!


there seems to be an extra space on line 41 in the word "olFolderCalen dar".
Please try to remove that one.
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
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.

Join & Write a Comment

Featured Post

Has Powershell sent you back into the Stone Age?

If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone.  For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now