About a month ago I wrote a post that detailed how to prevent attendees from forwarding your Outlook meetings to other people.
Since then Iāve expanded upon it slightly on my own computer: in addition to the option to prevent meetings from being forwarded, Iāve added similar buttons to the new email toolbar that can prevent forwarding, replying or replies to all.
Preventing people from hittingĀ āreply allā is sometimes a great tactic if youāre sending an email to particularly large group and you donāt want everybody to get caught up in any follow-up. By contrast, preventing replies (thus forcing people to use āreply allā instead) is great if you want the opposite, and for everyone to be kept in the loop.
My previous post details the process of setting all this up, but below is the code for the four macros. The first disables forwarding, the second disables replies, the third disables reply all and the final re-enables all response options. By default, nothing is disabled on new items unless you hit the relevant button to run the macro.
Enjoy!
Sub DisableForwarding() ActiveInspector.CurrentItem.Actions("Forward").Enabled = False X = MsgBox("Forwarding of this item has been disabled", vbInformation, "Forwarding Disabled") End Sub Sub DisableReply() ActiveInspector.CurrentItem.Actions("Reply").Enabled = False X = MsgBox("Replies to this item have been disabled", vbInformation, "Forwarding Disabled") End Sub Sub DisableReplyAll() ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False X = MsgBox("Reply All has been disabled for this item", vbInformation, "Forwarding Disabled") End Sub Sub EnableAllResponses() ActiveInspector.CurrentItem.Actions("Forward").Enabled = True ActiveInspector.CurrentItem.Actions("Reply").Enabled = True ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = True X = MsgBox("Forwarding, Replies and Reply All have been enabled for this item", vbInformation, "Forwarding Disabled") End Sub