Hur man automatiskt markerar helgmöten som privata i Outlook

Outlook-lösningar September 29, 2025

För most användare är de möten som schemaläggs på helgen vanligtvis privata. Därför vill de att Outlook automatiskt ska markera och visa sådana möten som privata. I den här artikeln kommer vi att förverkliga detta med lite skript.

För att lättare kunna skilja mellan affärsmöten och privata möten, tillåter Outlook användare att markera möten som privata. På så sätt kommer du att tycka att det är ganska bekvämt och enkelt att skriva ut kalender utan privata möten. I den här situationen kanske du vill att din Outlook automatiskt känner igen och markerar specifika möten som privata. Till exempel, i allmänhet är mötena på helger privata, så du vill låta Outlook automatiskt markera dem som privata. Därefter vägleder vi dig att uppnå det.

Automarkera helgmöten som privata

  1. Starta först Outlook VBA-redigeraren enligt "Hur du kör VBA-kod i din Outlook".
  2. Sedan, i fönstret "Microsoft Visual Basic for Applications", lägg in följande kod i projektet "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-kod - Automarkera helgmöten som privata

  1. Efter det, restart Outlook för att aktivera makrot.
  2. Från och med nu, varje gång du skapar ett nytt möte eller ändrar ett befintligt möte till helgen, kommer Outlook automatiskt att markera det som privat.Automarkera helgmöten som privata

Lös irriterande Outlook-problem

Det är möjligt att du har stött på några problem när du hanterar Outlook, till exempel oväntad programfrysning, popup-felmeddelanden och så vidare. När du lider av dem, skulle du vara orolig. Snälla lugna ner dig! Panik hjälper ingenting, men gör saken värre. I första hand kan du kontrollera om du kan komma åt PST-filen som vanligt. Om så är fallet måste du reparera PST-filen, vilket kan göras via verktyg för reparation av inkorgen eller ett kraftfullare externt verktyg, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive mdf-reparation och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.