Как установить время начала и окончания событий по умолчанию на весь день в зависимости от вашего рабочего времени в Outlook

По умолчанию в Outlook нельзя изменить время начала и окончания событий на весь день в соответствии с вашими пожеланиями. В этой статье мы покажем, как установить время начала и окончания событий на весь день по умолчанию в соответствии с вашим рабочим временем.

Как видите, при включении опции «Событие на весь день» в событии поля «Время начала» и «Время окончания» становятся неактивными (серыми). Это означает, что вы не можете изменить их по своему усмотрению. Поэтому далее мы расскажем вам, как установить время начала и окончания событий на весь день по умолчанию в соответствии с вашим рабочим временем в Outlook.

Установите время начала и окончания мероприятий по умолчанию на весь день в соответствии с рабочим временем.

1. Для начала запустите программу Outlook.
2. После того, как вы попадете на главный экран Outlook, вы можете нажать клавиши «Alt + F11».
3. Впоследствии вы получите доступ к окну редактора Outlook VBA.
4. В текущем окне «Microsoft Visual Basic для приложений» необходимо открыть окно проекта «ThisOutlookSession».
5. Затем скопируйте следующий код VBA в этот проект.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. После этого нужно подписать этот код. Нажмите «Инструменты» > «Подпись».
7. В следующем диалоговом окне следуйте инструкциям на экране, чтобы назначить цифровой сертификат новому проекту VBA.
8. Позже вы должны изменить настройки макросов Outlook, чтобы разрешить макросы с цифровой подписью.
9. В конечном итоге вы можете перезапустить приложение Outlook, чтобы активировать этот макрос.
10. С этого момента при каждом включении параметра «Событие на весь день» в событии Outlook время начала и окончания события будет изменяться на ваши рабочие часы, как показано на следующем скриншоте:

Получить ценные данные из скомпрометированного файла Outlook

Хотя Outlook может похвастаться множеством различных функций, это не значит, что он полностью безупречен. Он по-прежнему может быть поврежден из-за различных факторов, таких как вирусы, переносимые по электронной почте, неправильное обращение человека и так далее. Поэтому, помимо создания регулярных резервных копий данных PST, вам лучше подготовить поблизости мощное внешнее средство исправления PST, например DataNumen Outlook Repair. Он может восстановить PST вопросы за короткий промежуток времени.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com