Outlook 2010 Mark all appointments as private
In Outlook 2010:
- Press ALT + F11
- You get A new window: Microsoft Visual Basic For Applications window
- Past the next code into this window:
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