'Run a script' to open Current Calendar item

[Henry]

I have a rule to move calendar item to a subfolder within mailbox. Due to
this the snipper doesnt post item as tentative.

I'm looking for a script to attach to calendar rule either to post tentative
or mark the item as open so it would post tentative.

I selected a RULE for all incoming meeting appointments and enabled 'run a
script'.

Below is what is shown in my script.

Sub CustomMeetingRequestRule(Item As Outlook.MeetingItem)
Rem Outlook.Add (olAppointmentItem)
Open(Outlook.Inspectors.Item.CurrentItem)
End Sub

Either
Outlook.Add (olAppointmentItem) OR
Open(Outlook.Inspectors.Item.CurrentItem)
is working.

Can anyone give me the right syntax for opening current appt item.

 

[Sue Mosher [MVP-Outlook]]

It should be something like (untested):

Set appt = Item.GetAssociatedAppointment(AddToCalendar:=True)
appt.BusyStatus = olTentative
appt.Save

If you want to "open" the meeting request, the proper method is Display:

Item.Display
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers