Hi Everyone,
I am trying to create a macro to enhance the idea behind "For Internal Use Only."
I have a button that will do the following
I would like it to disable Reply, Reply to All, Forward
I would like to disable the ability to Copy and Paste (or modify the message body).
I would also like the button to input a note at the bottom of the message "This information is for INTERNAL USE ONLY!"
I have the following code for the first three commands but need some help with the rest.
Sub ForInternalUseOnly()
ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False
ActiveInspector.CurrentItem.Actions("Reply").Enabled = False
ActiveInspector.CurrentItem.Actions("Forward").Enabled = False
End Sub
Thanks a bunch!
Dan
I am trying to create a macro to enhance the idea behind "For Internal Use Only."
I have a button that will do the following
I would like it to disable Reply, Reply to All, Forward
I would like to disable the ability to Copy and Paste (or modify the message body).
I would also like the button to input a note at the bottom of the message "This information is for INTERNAL USE ONLY!"
I have the following code for the first three commands but need some help with the rest.
Sub ForInternalUseOnly()
ActiveInspector.CurrentItem.Actions("Reply to All").Enabled = False
ActiveInspector.CurrentItem.Actions("Reply").Enabled = False
ActiveInspector.CurrentItem.Actions("Forward").Enabled = False
End Sub
Thanks a bunch!
Dan