Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как предотвратить напоминание Outlook слишком рано или слишком поздно?

Например, вы работаете с 9:00 до 6:00 каждый день, но теперь вы назначаете встречу в 10:00 и добавляете напоминание на 2 часа в Outlook. Это означает, что напоминание сработает в 8:00 до начала вашей работы. С другой стороны, напоминание может звучать в полночь в особых случаях. Это довольно неудобно, и некоторые пользователи Outlook могут захотеть предотвратить слишком раннее или слишком позднее напоминание Outlook. Здесь я представлю вам макрос VBA, который поможет вам решить эту проблему в Outlook.

Вкладка Office - включите редактирование и просмотр с вкладками в Office и сделайте работу намного проще ...
Kutools for Outlook - приносит 100 мощных расширенных функций в Microsoft Outlook
  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Множественные письма по правилам; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показывать сообщение при попытке ответить всем, если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой переписке; Отвечайте сразу на несколько писем; Автоматическое добавление приветствия при ответе; Автоматически добавлять дату и время в тему ...
  • Инструменты для вложения: Автоотключение, Сжать все, Переименовать все, Автосохранение всех ... Быстрый отчет, Подсчет выбранных писем, Удаление повторяющихся писем и контактов ...
  • Более 100 дополнительных функций будут решить большинство ваших проблем в Outlook 2010-2019 и 365. Полнофункциональная 60-дневная бесплатная пробная версия.

Чтобы Outlook не напомнил слишком рано или поздно, вы можете сделать следующее:

Шаг 1: нажмите другой + F11 тем временем клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

Шаг 2: разверните Объекты Microsoft Outlook на левой панели и вставьте следующий макрос VBA в ThisOutlookSession.

VBA: запретить слишком раннее или слишком позднее напоминание в Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Внимание: Вы можете указать свой рабочий период, изменив следующие параметры в коде VBA выше:
НапоминаниеMaxHour = 20
НапоминаниеMinHour = 9

Шаг 3: Сохраните этот VBA и перезапустите Microsoft Outlook.

С этого момента, когда вы создаете встречу с напоминанием, когда вы указываете рабочий период, появится диалоговое окно, напоминающее вам, после того, как вы нажмете кнопку Сохранить и закрыть кнопку.

Если время напоминания раньше указанного времени напоминания MinHour, нажмите кнопку Да в диалоговом окне он изменит время напоминания и подаст звуковой сигнал напоминания в указанное время напоминания.

Если время напоминания позже, чем указанное время напоминания MaxHour, щелкните Да в диалоговом окне он изменит время напоминания и напомнит вам в указанное время напоминанияMaxHour.

Примечание: Этот код VBA хорошо работает с Outlook 2013, но не работает с Outlook 2010 и 2007.


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.