Gulp! Did I really just send that to the entire company...?

I am sure that it has happened to everyone in some way or another.  You receive an e-mail from a colleague and decide to reply with some harmless comment/joke/snide remark/insult/opinion* but without realising that you pressed the 'Reply To All' button, nor realising that HR and/or your boss were copied on the e-mail as well.  Now you are thinking 'Oh dear' and a way to explain it all away as harmless and inconsequential; sound familiar?  Well look no further as you can prevent it from ever happening again with just a few lines of code!

You can use the following VBA code in a module in Outlook (only tested in Outlook 2007) to request confirmation from you before using the 'Reply To All' button.

Sub ReplyToAllGuard()

        Dim mymsg As String
        Dim ReplyQ As Integer

        mymsg = "You just clicked Reply to All.  Are you sure that this is what you want to do?"
        ReplyQ = MsgBox(mymsg, vbYesNo, "Job/Life/Reputation protector")

        If ReplyQ = vbNo Then

                Exit Sub

        Else

            Dim myOlApp As Outlook.Application
            Dim myFolder As Outlook.MAPIFolder
            Dim myItem As Outlook.MailItem
            Dim ReplyMail  As Outlook.MailItem
            Dim i As Integer

            Set myOlApp = CreateObject("Outlook.Application")
            Set myFolder = myOlApp.ActiveExplorer.CurrentFolder
            iCount = myOlApp.ActiveExplorer.Selection.Count

            For i = 1 To iCount

                Set myItem = myOlApp.ActiveExplorer.Selection.item(1)
                Set ReplyMail = myItem.ReplyAll
                ReplyMail.Display

            Next i

        End If

End Sub

Just create a new button on your toolbar (see the snapshot of my toolbar below) and link it to the code that you have added to your module.  IIRC, there is also some code somewhere in the help files of Office that does a similar thing, but I could not find it quickly and the above code only took 2 minutes to write.

image

* delete as applicable