So markieren Sie Wochenendtermine in Outlook automatisch als privat

Bildenost Benutzer, die am Wochenende geplanten Termine sind in der Regel privat. Daher möchten sie, dass Outlook solche Termine automatisch als privat markiert und anzeigt. In diesem Artikel werden wir dies mit ein wenig Skripterstellung verwirklichen.

Um die Unterscheidung zwischen geschäftlichen und privaten Terminen zu vereinfachen, können Benutzer in Outlook Termine als privat markieren. Auf diese Weise finden Sie es ziemlich bequem und einfach, Kalender ohne private Termine zu drucken. In dieser Situation möchten Sie möglicherweise, dass Ihr Outlook bestimmte Termine automatisch erkennt und als privat markiert. Im Allgemeinen sind die Termine am Wochenende privat, daher möchten Sie, dass Outlook sie automatisch als privat markiert. Danach werden wir Sie dabei unterstützen, dies zu erreichen.

Wochenendtermine automatisch als privat markieren

1. Starten Sie zunächst den Outlook VBA-Editor gemäß „So führen Sie VBA-Code in Outlook aus".
2. Fügen Sie dann im Fenster "Microsoft Visual Basic für Applikationen" den folgenden Code in das Projekt "ThisOutlookSession" ein.

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. Danach restart Outlook, um das Makro zu aktivieren.
4. Von nun an markiert Outlook jedes Mal, wenn Sie einen neuen Termin erstellen oder einen vorhandenen Termin auf das Wochenende ändern, diesen automatisch als privat.

Lösen Sie störende Outlook-Probleme

Möglicherweise sind beim Umgang mit Outlook einige Probleme aufgetreten, z. B. unerwartetes Einfrieren von Anwendungen, Popup-Fehlermeldungen usw. Wenn Sie sie leiden, würden Sie besorgt sein. Bitte beruhigen! Panik hilft nichts, macht aber den Fall noch schlimmer. Zunächst können Sie überprüfen, ob Sie wie gewohnt auf die PST-Datei zugreifen können. In diesem Fall müssen Sie die PST-Datei reparieren. Dies kann über die Datei erfolgen Reparaturwerkzeug für den Posteingang oder ein leistungsfähigeres externes Tool, wie DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich MDF-Reparatur und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX