Autoaccept a Meeting Request using Rules

Status
Not open for further replies.

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange

Glen

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Can anyone advise how to adapt the above linked code (also shown below) to only activate for a certain mailbox (not the primary one)?

Many thanks

Glen

Sub AutoAcceptMeetings(oRequest As MeetingItem)

If oRequest.MessageClass <> "IPM.Schedule.Meeting.Request" Then
Exit Sub
End If

Dim oAppt As AppointmentItem
Set oAppt = oRequest.GetAssociatedAppointment(True)

Dim oResponse
Set oResponse = oAppt.Respond(olMeetingAccepted, True)
oResponse.Display '.Send
End Sub
 
Status
Not open for further replies.

Similar threads

Top