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
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" <Henry[ at ]discussions.microsoft.com> wrote in message news:61F1122C-D7B8-4C1B-9E70-46176C018EBA[ at ]microsoft.com...
[Quoted Text] >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.
>
|