"Accept + Send the Response now", VBA script?

[Viggo_L]

With nearly all meeting invites, I accept and press "Send response now" from the drop-down. Is there any clever way to make it more effecient?

Maybe a VBA script?

Or is there a menu option I havent been able to find?

 

[Diane Poremsky]

You can autoaccept using rules, so you could use vba to autoaccept manually too -

http://www.slipstick.com/outlook/calendar/autoaccept-a-meeting-request-using-rules/

To use manually, try this

Sub AutoAcceptMeetings()

Dim oRequest As MeetingItem

Dim oAppt As AppointmentItem

Set oRequest = GetCurrentItem()

Set oAppt = oRequest.GetAssociatedAppointment(True)

Dim oResponse
Set oResponse = oAppt.Respond(olMeetingAccepted, True)
oResponse.Display ' or use .Send instead

End Sub