Visual Basic Script to make calendar objects public

Well those fine, fine people at Oracle make the default PRIVATE for ICS exports in Oracle Calendar Server 10.x.

SO we have options for making our process make them NON-PRIVATE if you wish.

OR if you want to migrate it as private and then change it, this VB script will help.

---------------------

Here is a VB Script that will make items public

---------------------

'Used this MSDN as a hint: http://msdn.microsoft.com/en-us/library/aa171274(v=office.11).aspx

Dim appOutlook As New Outlook.Application

Dim OutlookItems As Outlook.Items

Public Sub ClearCalendarItemsPrivateFlag()

Set OutlookItems = appOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items

For Each appointment In OutlookItems

    appointment.Sensitivity = olNormal  'or olPrivate if you want to turn it back

    appointment.Save

Next appointment

End Sub