Note: I'm working on 2007, but I think the code should transfer OK.
You can add an event handler via VBA to pick up the ReplyAll
event. Something like the following:
Dim WithEvents insp As Outlook.Inspectors
Dim WithEvents mailItem As Outlook.MailItem
' This is called on Outlook startup
Private Sub Application_Startup()
Set insp = Application.Inspectors
End Sub
' This is called when a new Inspector is created. You use it to pick up on a new mail item event
Private Sub insp_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Size = 0 And Inspector.CurrentItem.Class = olMail Then
Set mailItem = Inspector.CurrentItem
End If
End Sub
' Called when you press ReplyAll
Private Sub mailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
Dim msg As String
Dim result As Integer
msg = "Do you really want to reply to all?"
result = MsgBox(msg, vbYesNo, "Reply All Check")
If result = vbNo Then
Cancel = True
End If
End Sub
@digitxp You can disable reply all or install the NoReplay add-on to disable the feature on selected emails
– phuclv – 2018-06-30T15:48:30.8201If that came default in Outlook, imagine all the savings in Inbox flooding! – digitxp – 2011-08-24T19:20:05.927
Is it that you don't want to use an add-in, or just don't want to use one you have to pay for? – Ƭᴇcʜιᴇ007 – 2011-08-24T20:14:12.083
It's the cost. I'm looking for a solution that can be deployed to around 100 machines. – Adam S – 2011-08-25T16:14:14.103