Weekendafspraken automatisch markeren als privé in Outlook

Outlook-oplossingen 29 september 2025

Het formulierost gebruikers zijn de afspraken die in het weekend gepland staan ​​doorgaans privé. Daarom willen ze dat Outlook dergelijke afspraken automatisch als privé markeert en weergeeft. In dit artikel zullen we dit waarmaken met een beetje scripting.

Om gemakkelijker onderscheid te kunnen maken tussen zakelijke en privé-afspraken, biedt Outlook gebruikers de mogelijkheid om afspraken als privé te markeren. Op deze manier zult u het behoorlijk handig en gemakkelijk vinden om de kalender af te drukken zonder privé-afspraken. In deze situatie wilt u mogelijk dat Outlook specifieke afspraken automatisch herkent en als privé markeert. Over het algemeen zijn de afspraken in het weekend bijvoorbeeld privé, dus u wilt Outlook ze automatisch als privé laten markeren. Daarna begeleiden wij u om dit te bereiken.

Weekendafspraken automatisch markeren als privé

  1. Start eerst de Outlook VBA-editor volgens “Hoe u VBA-code in uw Outlook uitvoert'.
  2. Plaats vervolgens in het venster "Microsoft Visual Basic for Applications" de volgende code in het project "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

VBA-code - Weekendafspraken automatisch markeren als privé

  1. Daarna restart Outlook om de macro te activeren.
  2. Vanaf nu zal Outlook elke keer dat u een nieuwe afspraak maakt of een bestaande afspraak naar het weekend wijzigt, deze automatisch als privé markeren.Weekendafspraken automatisch markeren als privé

Los vervelende Outlook-problemen op

Het is mogelijk dat u bepaalde problemen bent tegengekomen bij het werken met Outlook, zoals het onverwacht vastlopen van applicaties, pop-upfoutmeldingen, enzovoort. Als je eraan lijdt, zou je je zorgen maken. Alsjeblieft, word rustig! Paniek helpt niets, maar maakt de zaak alleen maar erger. In de eerste plaats kunt u controleren of u zoals gewoonlijk toegang heeft tot het PST-bestand. Als dat het geval is, moet u het PST-bestand repareren, wat u kunt doen via het inbox reparatieprogramma of een krachtiger extern hulpmiddel, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.