Outlook Disable “reply-to-all/forward” | Just my blog

/dev/random

Outlook Disable “reply-to-all/forward”

A long time I was enthusiastic about the fact that with Lotus Notes you were able to disable "reply-to-all" in a mail. After some search on Google, I noticed, that is also possible with MS Outlook. Scott Hanselman wrote a nice article on his weblog:


http://www.hanselman.com/blog/HowToEasilyDisableReplyToAllAndForwardInOutlook.aspx


To make it more user friendly, I modified the code a little bit:


Sub NoReplyAll()
'--------------------------------------------------------------------
'Disable reply to all/forward options from a mail
'This code is taken from
'
' http://www.hanselman.com/blog/HowToEasilyDisableReplyToAllAndForwardInOutlook.aspx
'
'and some small modifications are applied by Pieter de Rijk
'
' http://blog.adslweb.net
'--------------------------------------------------------------------

If ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = True Then


'Check the status if Reply-to-All is enabled, so we disable it
ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False
ActiveInspector.CurrentItem.Actions("Forward").Enabled = False

'Give a prompt that it is disabled
MsgBox "Reply to all/Forward is disabled", vbInformation, "Reply to all/Forward"
Else
'The Reply-to-All is disabled, so enable it again
ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = True
ActiveInspector.CurrentItem.Actions("Forward").Enabled = True
'Prompt that we enabled it again
MsgBox "Reply to all/Forward is enabled", vbExclamation, "Reply to all/Forward"
End If

End Sub


  • Social

  • By continuing to use the site, you agree to the use of cookies. more information

    The cookie settings on this website are set to "allow cookies" to give you the best browsing experience possible and enable advertising to provide you free content. If you continue to use this website without changing your cookie settings or you click "Accept" below then you are consenting to this.

    Close