Results 1 to 4 of 4
  1. #1
    Lounger
    Join Date
    Oct 2002
    Location
    Mornington Peninsula
    Posts
    42
    Thanks
    1
    Thanked 0 Times in 0 Posts
    Hi All,

    I have researched the web pretty thoroughly and it seems the 18 hour default reminder setting for "all day events" cannot be changed.

    THis is for Outlook 2007 both on stand alone machine and/or on a network. Does anyone know anything to the contrary? Or possibly a quick fix?

    Is particularly when i have my reminders text me on the mobile, and i get a messgae at 6.00am on a sunday to tell me the next day is a Public Holiday!!!!

    Thank you.
    Many thanks for any help, much appreciated.
    Have a great day!
    WebMistress

  2. #2
    Administrator
    Join Date
    Mar 2001
    Location
    St Louis, Missouri, USA
    Posts
    23,592
    Thanks
    5
    Thanked 1,059 Times in 928 Posts
    [quote name='webmistress' post='794642' date='23-Sep-2009 20:05']Hi All,

    I have researched the web pretty thoroughly and it seems the 18 hour default reminder setting for "all day events" cannot be changed.

    THis is for Outlook 2007 both on stand alone machine and/or on a network. Does anyone know anything to the contrary? Or possibly a quick fix?

    Is particularly when i have my reminders text me on the mobile, and i get a messgae at 6.00am on a sunday to tell me the next day is a Public Holiday!!!![/quote]

    Unfortunately, I can only confirm what you have found. I'm afraid your only alternative is change the reminder when the all day event is created.

    Joe
    Joe

  3. #3
    Lounger
    Join Date
    Oct 2002
    Location
    Mornington Peninsula
    Posts
    42
    Thanks
    1
    Thanked 0 Times in 0 Posts
    Thank you for getting back to me Joe. At least I can give up searching for an answer.

    CHeers.


    [quote name='joeperez' post='794645' date='24-Sep-2009 00:56']Unfortunately, I can only confirm what you have found. I'm afraid your only alternative is change the reminder when the all day event is created.

    Joe[/quote]
    Many thanks for any help, much appreciated.
    Have a great day!
    WebMistress

  4. #4
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts
    I found this code at http://thenewpaperclip.com/2008/04/15/chan...n-outlook-2007/

    It searches for Outlook appointments that are all-day events and have an 18 hour reminder, and changes the reminder to 12 hours. This doesn't change the default, but if you remember to run it every now and again then it prevents the 6am reminders!

    [codebox]
    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

    ' PART ONE
    ' 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

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

    ' PART THREE
    ' 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

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

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

    ' PART SIX
    ' 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
    Else
    ' 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
    oAppt.Save
    End If
    Debuglog = Debuglog & ", " & "6 " & oAppt.Start & ", " & _
    oAppt.Subject & ", " & oAppt.ReminderMinutesBeforeStart & vbNewLine & vbNewLine
    Next oAppt

    Debuglog = """"

    End Sub
    [/codebox]

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •