Как автоматически помечать встречи на выходные как частные в Outlook

Перспективные решения 29 сентября, 2025

Для мost пользователи, встречи, запланированные на выходные, обычно являются частными. Следовательно, они хотят, чтобы Outlook автоматически помечал и показывал такие встречи как частные. В этой статье мы воплотим это в реальность с помощью небольшого количества сценариев.

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

Автоматически отмечать встречи на выходных как частные

Сначала запустите редактор Outlook VBA в соответствии с «Как запустить код VBA в Outlook».
Затем в окне «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

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

Решите раздражающие проблемы с Outlook

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

Об авторе:

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