V Outlooku z nějakého zajímavého důvodu nelze označit více vybraných kontaktů příznakem “privátní”, při výběru více událostí toto tlačítko zašedne.

Jako nejsnazší cesta se ukázalo nastavení pomocí makra:

1. Otevřete Outlook
2. Stiskněte ALT+F11
3. Otevře se Visual Basic for Applications
4. Přidejte nový “Module”
5. Do modulu vložte kód:

   [code:vb]
   Dim myOlApp As New Outlook.Application
   Public myOlItems As Outlook.Items

   Public Sub MarkCalendarItemsAsPrivate()
   Set myOlItems = myOlApp.GetNamespace(„MAPI“).GetDefaultFolder(olFolderCalendar).Items
   For Each Appointment In myOlItems
   Appointment.Sensitivity = olPrivate
   Appointment.Save
   Next Appointment
   End Sub
   [/code]

6. Makro spusťte
7. Hotovo