Як встановити час початку та завершення за замовчуванням для цілоденних подій на основі робочого часу в 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., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправлення mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com