Slik merker du helgeavtaler automatisk som private i Outlook

Outlook-løsninger September 29, 2025

for most brukere, er avtalene som er planlagt i helgen vanligvis private. Derfor vil de at Outlook automatisk skal merke og vise slike avtaler som private. I denne artikkelen skal vi gjøre dette til virkelighet med litt skripting.

For å skille mellom forretningsavtaler og private avtaler lettere, tillater Outlook brukere å merke avtaler som private. På denne måten vil du finne det ganske praktisk og enkelt å skrive ut kalender uten private avtaler. I denne situasjonen vil du kanskje at Outlook automatisk skal gjenkjenne og merke bestemte avtaler som private. For eksempel er avtaler i helgen generelt private, så du vil la Outlook automatisk merke dem som private. Deretter vil vi veilede deg for å oppnå det.

Automerk helgeavtaler som private

  1. Start først Outlook VBA-redigering i henhold til "Hvordan kjøre VBA-kode i Outlook".
  2. Deretter, i "Microsoft Visual Basic for Applications"-vinduet, legger du følgende kode inn i "ThisOutlookSession"-prosjektet.
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-kode - Automerk helgeavtaler som private

  1. Etter det, restart Outlook for å aktivere makroen.
  2. Fra nå av, hver gang du oppretter en ny avtale eller endrer en eksisterende avtale til helg, vil Outlook automatisk merke den som privat.Automerk helgeavtaler som private

Løs irriterende Outlook-problemer

Det er mulig du har støtt på noen problemer når du arbeider med Outlook, for eksempel uventet programfrysing, popup-feilmeldinger og så videre. Når du lider dem, ville du være bekymret. Vennligst roe ned! Panikk hjelper ingenting, men gjør saken verre. For det første kan du sjekke om du får tilgang til PST-filen som vanlig. I så fall må du reparere PST-filen, som kan gjøres via verktøy for reparasjon av innboks eller et kraftigere eksternt verktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf reparasjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.