Meeting request Macros?

G

Guest

When a "Meeting Request" comes in, I want to run a VB script to perform a
number of things...

1) If it matches a template then.... (otherwise exit)
- Accept it and return the reply
- Label it
- change it to "optional attendee is not already
- Delete any reminder

has anyone already built such a script that I can modify (or something close)?
 
G

Guest

I can take you part of the way, but you'll have to implement the part to
change the Appointment color label yourself (see the link in the code).
However, I'm not sure what you mean by "change it to "optional attendee is
not already"".

You can have this code fire automatically by creating a rule that runs on
incoming items that use the Meeting Request form and choose the option to run
a script.

Sub CustomMeetingRequestRule(Item As Outlook.MeetingItem)
' See:
' How to create a script for the Rules Wizard in Outlook:
' http://support.microsoft.com/default.aspx?scid=KB;en-us;q306108

AlterMeetingRequest Item
End Sub

Sub AlterMeetingRequest(Meeting As MeetingItem)
Dim objAssociatedAppointment As Outlook.AppointmentItem
Dim objReplyMeeting As Outlook.MeetingItem

Set objAssociatedAppointment = Meeting.GetAssociatedAppointment(False)
objAssociatedAppointment.ReminderSet = False

'Add code to modify label
'See:
' OutlookCode.com :: Outlook Code Samples :: Outlook Expert Techniques ::
Set color label on appointment:
' http://www.outlookcode.com/codedetail.aspx?id=139

Set objReplyMeeting =
objAssociatedAppointment.Respond(olMeetingAccepted, True, False)
objReplyMeeting.Send

Set objReplyMeeting = Nothing
Set objAssociatedAppointment = Nothing
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top