hak "privat" af som standard i kalender

Sæt nedenstående ind i et modul "Funktioner - Makro -Visual Basic Editor". Så har du en makro, du kan køre. Evt. knytte til en knap via "Tilpas...". Ønsker du lige at skulle  bekræfte, før der "hakkes af" og lukkes, så erstat olSave med olPromptForSave.

Public Sub AppointmentSensitivity()
    Dim itm As AppointmentItem
   
    Set itm = Application.ActiveInspector.CurrentItem
    itm.Sensitivity = olPrivate
    itm.Close olSave
   
End Sub

Nej - det var jo bare en programmering af hakket inde i aftalen. Brug denne - så har du en makro at køre ude fra Outlookbrugerfladen:

Public Sub OpretPrivat()
    Dim appolApp As Outlook.Application
    Dim itm As AppointmentItem
   
    Set appolApp = Outlook.Application
    Set itm = appolApp.CreateItem(olAppointmentItem)
   
    itm.Sensitivity = olPrivate
    itm.Display
   
End Sub