Jak automatycznie oznaczać spotkania weekendowe jako prywatne w programie Outlook

Rozwiązania Outlook September 29, 2025

Formularzost użytkowników, spotkania zaplanowane na weekend są zwykle prywatne. Dlatego chcą, aby program Outlook automatycznie oznaczał i pokazywał takie spotkania jako prywatne. W tym artykule urzeczywistnimy to za pomocą odrobiny skryptów.

Aby łatwiej odróżnić spotkania biznesowe od prywatnych, program Outlook umożliwia użytkownikom oznaczanie spotkań jako prywatnych. W ten sposób drukowanie kalendarza bez prywatnych spotkań będzie bardzo wygodne i łatwe. W takiej sytuacji możesz chcieć, aby program Outlook automatycznie rozpoznawał i oznaczał określone spotkania jako prywatne. Na przykład zazwyczaj spotkania w weekendy są prywatne, dlatego chcesz, aby program Outlook automatycznie oznaczał je jako prywatne. Następnie pomożemy Ci to osiągnąć.

Oznaczaj automatycznie spotkania weekendowe jako prywatne

Najpierw uruchom edytor Outlook VBA zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
Następnie w oknie „Microsoft Visual Basic for Applications” umieść następujący kod w projekcie „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

Po tym restarOutlook, aby aktywować makro.
Odtąd za każdym razem, gdy utworzysz nowe spotkanie lub zmienisz istniejące spotkanie na weekend, program Outlook automatycznie oznaczy je jako prywatne.

Rozwiąż irytujące problemy z programem Outlook

Możliwe, że napotkałeś pewne problemy podczas pracy z Outlookiem, takie jak nieoczekiwane zawieszanie się aplikacji, wyskakujące komunikaty o błędach i tak dalej. Cierpiąc je, martwiłbyś się. Proszę, uspokój się! Panika nic nie pomoże, ale pogorszy sprawę. W pierwszej kolejności możesz sprawdzić, czy możesz normalnie uzyskać dostęp do pliku PST. Jeśli tak, musisz naprawić plik PST, co można wykonać za pomocą rozszerzenia narzędzie do naprawy skrzynki odbiorczej lub potężniejsze narzędzie zewnętrzne, takie jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com