Forward Meeting once Accepted

walsham

Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
I am new to outlook, and want to create a rule that will forward an appointment, only after I accept it. I want to forward it to another account (in this case a groupwise email account) so that my calanders in Outlook, and GW stay in sync. If I decline, it should not be forwarded.

Can I trigger an event based on the accept / decline of an appt, and not when it is recieved?

Thanks,

Aaron
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Yes. You can use a macro to accept the meeting and then forward it, but with the code I have, you need to accept it from the calendar, not the inbox.

I tweaked the macro at Keep Canceled Meetings on Outlook's Calendar - Slipstick Systems to copy the appointment then decline the meeting (someone wanted to keep a copy of all invites).
 

walsham

Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Yes. You can use a macro to accept the meeting and then forward it, but with the code I have, you need to accept it from the calendar, not the inbox.

I tweaked the macro at Keep Canceled Meetings on Outlook's Calendar - Slipstick Systems to copy the appointment then decline the meeting (someone wanted to keep a copy of all invites).
Diane-

Is there a way to add custom logic to the built in Accept / tenative / Decline buttons that are present when viewing a Meeting? Or at least add a custom button to that menu, so the user doesnt need to jump over to the calender?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
No on custom logic. I'm looking into making it work from the inbox - i was surprised when the macro failed the other day.

It maybe be as simple as using

Set cAppt = oRequest.GetAssociatedAppointment(True)

I just haven't had a lot of time to work on it.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
here is a quickie that is halfway to what you want. My quickie attempt at filling in the To field failed and i need to make supper, so it will have to wait.

Code:
Sub Forward() 
 
Dim oAppt As MailItem 
 
Dim cAppt As AppointmentItem 
 
Dim oRequest As MeetingItem 
 
Dim oResponse 
 
Set cAppt = GetCurrentItem.GetAssociatedAppointment(True) 
 
Set oRequest = GetCurrentItem() 
 
oRequest.Forward.Display 
 
Set oResponse = cAppt.Respond(olMeetingAccepted, True)
oResponse.Send 
 
Set cAppt = Nothing 
 
End Sub 
 
Function GetCurrentItem() As Object
   Dim objApp As Outlook.Application
      
   Set objApp = Application
   On Error Resume Next
   Select Case TypeName(objApp.ActiveWindow)
       Case "Explorer"
           Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
       Case "Inspector"
           Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
   End Select
  
   Set objApp = Nothing 
 
End Function
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
supper can wait when I'm annoyed by something that is so obvious that i can't see it. <g> After supper, I'll write it up on slipstick.com.

change the oappt dim statement then stick this block in, replacing the similar block in the code above. When you receive a meeting request, select it macro (add a button to the form to run it).

Code:
Dim oAppt As MeetingItem 
 
Set cAppt = GetCurrentItem.GetAssociatedAppointment(True) 
 
Set oRequest = GetCurrentItem() 
 
Set oAppt = oRequest.Forward 
 
oAppt.Recipients.Add "alias@domain.com" 
 
oAppt.Send 
 
Set oResponse = cAppt.Respond(olMeetingAccepted, True) 
 
oResponse.Send
 

Ella

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server
Diane -

I am a personal assistant for the President/CEO of a wealth management company.

He is invited to every meeting the company has and needs all meetings to stay on his Outlook calendar. Because of this, he cannot hit “decline,” he can only leave them pending.

The pending meetings make his calendar very hectic and it is difficult for him to see the appointments he has actually accepted.

Despite training him on how to manually change the color as he accepts the meeting, he isn’t very computer savvy.

We would like his accepted appointments to be switched to an alternative color. However, we cannot find this option.

We came up with the idea of having his accepted meetings forwarded to my inbox so I can manually go in to switch the accepted meeting color for him.

Until we resolve this, I am going into his calendar daily to look for new accepted appointments.

Can you help me come up with a solution for this?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Does he normally assign categories? if no, you can create a view that applies different colors and fonts to accepted messages. It would work like this - Make 'today' stand out more in the calendar - but with a different filter

another option is a macro that saves a copy as an appointment and it can set the busy state or a category.
 

Ella

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server
Does he normally assign categories? if no, you can create a view that applies different colors and fonts to accepted messages. It would work like this - Make 'today' stand out more in the calendar - but with a different filter

another option is a macro that saves a copy as an appointment and it can set the busy state or a category.
He does not assign categories. I clicked your link and got all the way to the filter portion. Can you help me from there?

Again, I want to make all of his accepted meetings on his calendar default to the color red.

I appreciate your time so much, Diane!
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Use the Advanced tab, type or select Meeting Status as the field name, equals Accepted. if you have more than one rule, it should be the first one.
 
Top