Forward Meeting once Accepted

Status
Not open for further replies.

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
 
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).
 
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?
 
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.
 
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
 
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
 
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?
 
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.
 
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!
 
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.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
D Outlook 365 Forward Meeting Related Messages to Specific Meeting Organizer Outlook VBA and Custom Forms 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain Outlook VBA and Custom Forms 2
A Forward mails with "FW:" or "RE:" in title Using Outlook 2
J Outlook 365 Forward Email Subject to my inbox when new email arrive in shared inbox Using Outlook 0
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
T Customized form: The Forward option shows write layout Outlook VBA and Custom Forms 0
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
Z VBA Forward vs manual forward Outlook VBA and Custom Forms 2
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
F Forward incoming email with 4 embedded images in the body without original sender Outlook VBA and Custom Forms 22
David McKay VBA to manually forward using odd options Outlook VBA and Custom Forms 1
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
G Forward email body to other mail list directly from Exchange server Exchange Server Administration 1
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
Bering Forward selected email without the original email appended Outlook VBA and Custom Forms 0
C UDFs Reply vs Forward Outlook VBA and Custom Forms 3
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
G Missing forward/replied icons Using Outlook 2
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
B Automatically Forward Emails and Remove/Replace All or Part of Body Outlook VBA and Custom Forms 8
M Forward Appointment as BCC with VBScript Outlook VBA and Custom Forms 7
B Forward every other email in Outlook 2013 Outlook VBA and Custom Forms 2
D Disable or hide "reply" and "reply to all" and "forward" in email from access vba Outlook VBA and Custom Forms 1
Sabastian Samuel HOW DO I FORWARD AN EMAIL WITH MACRO using an email that in the body of another email Outlook VBA and Custom Forms 3
C Don't forward duplicate Using Outlook 0
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
A Forward Outlook Email by Filtering using Macro Rule Outlook VBA and Custom Forms 44
I change subject and forward without FW: Outlook VBA and Custom Forms 4
C VBA to Forward e-mails from certain address and between certain times Outlook VBA and Custom Forms 1
J Forward Action in Form Outlook VBA and Custom Forms 1
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K add pdf to every reply or forward Outlook VBA and Custom Forms 1
Brostin Forward a mail to the address listed in the email text Outlook VBA and Custom Forms 1
N Going Forward: Using Outlook 2016 for RSS Feeds Using Outlook 2
J Forward Message after editing attachments and include edited attachments Using Outlook 5
R changing FW: on forward Outlook VBA and Custom Forms 3
Z Auto Forward Using Outlook 4
N Outlook script to forward emails based on senders' address Outlook VBA and Custom Forms 2
S Merge Emails with attachments with inbox rule to forward Using Outlook 5
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
A Creating an outlook rule to forward an email with a specific message Using Outlook 1
D Forward message to address from subject Outlook VBA and Custom Forms 1
D How to forward each email x minutes after it arrives in inbox and hasn't been moved or deleted? Using Outlook 1
W Macro to forward email Outlook VBA and Custom Forms 2
J How to change From then forward message Outlook VBA and Custom Forms 1

Similar threads

Back
Top