VBA in MS Outlook 2007, for Calendar item settings

[DutchKevin]

Hi,
Is there anybody who knows some code, or place where to look, for editing an Outlook calendar item with VBA.

Here's why; In my calendar I usually have 2 types of meeting.
One is by default, business related. It gets the usual 15 minutes reminder, is not private, and shows as busy on my calendar. Nothing special.
The other is the one is a private appointment. For those I always have to set three things manually each time. Mark it as private. It does not have a reminder, and shows as free in my calendar.
I'm looking for VBA code to do all those three things by the press of one button.

Any help or pointers are greatly appreciated.

Thanks
Kevin

 

[DutchKevin]

This does the trick from within an appointment

Sub Private_Free_NoReminder()
Dim objItem As Object
Dim thisAppt As AppointmentItem
Set objItem = Application.ActiveExplorer.Selection(1)
If objItem.Class = olAppointment Then
Set thisAppt = objItem
thisAppt.Sensitivity = olPrivate
thisAppt.BusyStatus = olFree
thisAppt.ReminderSet = False
thisAppt.Save
End If
Set objItem = Nothing
Set thisAppt = Nothing
End Sub

not truly crossposted i would hope, but still...
https://superuser.com/questions/819451/code-in-ms-outlook-2007-for-calendar-item-settings