Как да зададете началния и крайния час по подразбиране за целодневни събития въз основа на работното ви време в Outlook

По подразбиране не е позволено да променяте началния и крайния час на целодневните събития според вашите желания в Outlook. Сега тази статия ще ви покаже как да зададете началния и крайния час по подразбиране на целодневните събития според вашето работно време.

Както можете да видите, когато активирате опцията „Събитие за целия ден“ в дадена среща, полетата „Начален час“ и „Краен час“ ще бъдат сиви. В този случай това означава, че нямате право да ги променяте по ваш вкус. Затова по-долу ще ви споделим метод за задаване на началния и крайния час по подразбиране за събития за целия ден въз основа на работното ви време във вашия Outlook.

Задайте началния и крайния час по подразбиране за целодневни събития според работното време

1. За начало стартирайте програмата Outlook.
2. След като влезете в основния екран на Outlook, можете да натиснете бутоните „Alt + F11“.
3. Впоследствие ще получите достъп до прозореца на редактора на VBA на Outlook.
4. В текущия прозорец „Microsoft Visual Basic for Applications“ трябва да отворите прозореца на проекта „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 корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com