Hromadné označení událostí v Outlooku jako privátních

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