Як автоматично позначити зустрічі на вихідні як приватні в Outlook

За мost користувачів, зустрічі, заплановані на вихідні, зазвичай приватні. Тому вони хочуть, щоб Outlook автоматично позначав і показував такі зустрічі як приватні. У цій статті ми зробимо це за допомогою невеликого сценарію.

Щоб легше розрізняти ділові та приватні зустрічі, Outlook дозволяє користувачам позначати зустрічі як приватні. Таким чином, ви знайдете досить зручним і легким друк календаря без особистих зустрічей. У цій ситуації ви можете побажати, щоб ваш Outlook автоматично розпізнавав і позначав певні зустрічі як приватні. Наприклад, зазвичай зустрічі на вихідні є приватними, тому ви хочете дозволити Outlook автоматично позначати їх як приватні. Після цього ми допоможемо вам досягти цього.

Автоматичне позначення зустрічей на вихідні як приватних

1. Спочатку запустіть редактор Outlook VBA відповідно до «Як запустити код VBA у своєму Outlook».
2. Потім у вікні «Microsoft Visual Basic для програм» помістіть наступний код у проект «ThisOutlookSession».

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

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
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 objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

3. Після цього відпtart Outlook, щоб активувати макрос.
4. Відтепер кожного разу, коли ви створюєте нову зустріч або змінюєте наявну зустріч на вихідні, Outlook автоматично позначатиме її як приватну.

Вирішити прикрі проблеми Outlook

Можливо, ви зіткнулися з певними проблемами під час роботи з Outlook, такими як несподіване зависання програми, спливаючі повідомлення про помилки тощо. Переживаючи їх, ви будете хвилюватися. Будь ласка, заспокойся! Паніка нічим не допоможе, а лише погіршить ситуацію. По-перше, ви можете перевірити, чи можете ви отримати доступ до файлу PST, як зазвичай. Якщо так, вам потрібно відновити файл PST, що можна зробити за допомогою інструмент для ремонту вхідних - або більш потужний зовнішній інструмент, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com