☰

Outlook 和全天事件提醒

tag-icon • tag-icon microsoft-outlook calendar alarm
Outlook 和全天事件提醒

当我在 Outlook 中创建全天约会时，默认会在开始前 18 小时设置提醒。坦白说，我不喜欢在早上 6 点被叫醒！有什么方法可以更改默认设置吗？

我在 Outlook 2003 和 2007 中都遇到了这个问题。在“选项”中，我看到默认值为 15 分钟，这是它用于非全天事件的时间，但我没有看到任何地方可以更改全天事件的默认值。我是不是忽略了一些非常明显的东西？还是只是奇怪地忽略了？

答案1

[我找到了这个“解决方案”][1]。似乎没有真正的解决办法，但这个网站在评论中给出了解决方法

嗨，这不是 18 小时问题的解决办法，而是一种变通方法。它以我刚刚编写的 Outlook 宏的形式出现 - 您可以自由使用下面的代码。

它的功能是搜索您日历中未来六个月的全天约会，然后将这些约会的通知设置为 0 分钟 - 这意味着您应该在同一天在黑莓手机上收到这些约会。

将代码复制到 Outlook 后，我建议您自己签名，以便 Outlook 可以在宏安全性仍处于良好水平的情况下运行它，并在工具栏中放置一个宏按钮 - 两者的说明都在下面的网站中。然后，您只需每天\每周按下 Outlook 中的宏按钮，就不必担心在 Outlook 中设置全天约会而不更改通知。

希望能帮助到你。

Sub AllDaySetToZero()

Dim daStart, daEnd As Date
Dim oCalendar As Outlook.Folder
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(olFolderCalendar)
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 set Reminder to 0 Minutes.
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
oAppt.ReminderMinutesBeforeStart = 0
oAppt.Save
End If
Debuglog = Debuglog & “, ” & “6 ” & oAppt.Start & “, ” & oAppt.Subject & “, ” & oAppt.ReminderMinutesBeforeStart & vbNewLine & vbNewLine
Next
Debuglog = “”
End Sub

答案2

很多论坛都会出现这个问题，但答案似乎总是“这是一个功能，而不是一个错误。”十八小时似乎是提醒时间的硬编码默认值。

但是，您使用的是哪个版本的 Outlook？Microsoft 针对 2002 和 2003 版本的相关问题提供了一些修补程序。特别是 2002 版的“错误”，似乎是您真正想要的行为；修补程序将导致您遇到的问题。请查看此处的页面：

http://support.microsoft.com/kb/326698

相关内容