Outlook и весь день напоминания о событии

[Я нашел это 'решение'] [1]. Кажется, что нет реальной фиксации, но этот веб-сайт имеет обходное решение в комментариях

Привет, Это не фиксация в течение этих 18 часов вещь, но это - обходное решение. Это прибывает в форме макроса Outlook, который я только что записал – необходимо все бесплатно использовать код ниже.

То, что это делает, искать Ваш календарь в течение следующих шести месяцев весь день назначений только и затем устанавливает уведомление о них к 0 минутам – Значение, что необходимо получить их на ежевике в тот же день.

После того как Вы копируете код в Outlook, я советую подписать его сами, таким образом, Outlook может выполнить его с безопасностью макросов все еще на хорошем уровне и поместить макро-кнопку в панель инструментов – инструкции для обоих находятся на сайтах ниже. Затем просто необходимо нажать макро-кнопку в Outlook каждый day\week, и Вы не должны волноваться об установке действующего на протяжении всего дня назначения в перспективе, не изменяя уведомление.

Надежда это помогает.

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

Этот вопрос подходит на большом количестве форумов, но ответ всегда, кажется, "это - функция, не ошибка". Восемнадцать часов, кажется, трудно кодированное значение по умолчанию в течение времени напоминания.

НО, какую версию Outlook Вы используете? Microsoft имеет некоторые текущие исправления для связанных проблем для версий 2002 и 2003 годов. "Ошибка" 2002 года, в частности, кажется, поведение, которое Вы на самом деле ХОТИТЕ; текущие исправления ВЫЗОВУТ проблему, которую Вы испытываете. Проверьте страницу здесь:

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