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.

See if this works:

Sub CustomMeetingRequestRule(Item As Outlook.MeetingItem)
Dim appt As Outlook.AppointmentItem
Set appt = Item.GetAssociatedAppointment
appt.BusyStatus = olTentative
appt.Save
Set appt = Nothing
End Sub

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Henry" wrote in message ...
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.