Super User is a question and answer site for computer enthusiasts and power users. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This question is not a duplicate of this one:

Can I always exclude specific recipient from Reply All?

Or these which are about Outlook 2010 and are actually different issues:

reply-to-all includes my name in the TO line
Stop sending mail to myself when choosing Reply All in Outlook

Onto the Question

When I reply to all in Outlook 2007, it adds my name to the recipient list, so I end up getting the email. It has always done this with every installation I've ever had on every computer I've ever installed it on. Outlook 2010, on the other hand, has never done this. I am thinking that maybe they "fixed" this in Outlook 2010, but part of me also hopes that there's some way to keep this from happening in Outlook 2007. Essentially, I don't want the email address of the account I am using to reply to all to show in the recipient list.

share|improve this question

I believe there is no way to automate this. You will have to remove your name each time.

share|improve this answer
This is so true if we're not talking about third-party solutions. – thims Nov 12 '13 at 11:06
What are your 3rd party solutions? – Xavierjazz Nov 12 '13 at 15:18
Not going to advertise my competitors here. – thims Nov 12 '13 at 16:18

"...sometimes Outlook sends an email to yourself when you hit the 'Reply All' button. This VBA example checks the list of recipients before sending, and it removes certain addresses from it.

Private Sub RemoveRecipients(Item As Outlook.MailItem)
Dim RemoveThis As VBA.Collection
Dim Recipients As Outlook.Recipients
Dim R As Outlook.Recipient
Dim i&, y&
Set RemoveThis = New VBA.Collection

' here add addresses
RemoveThis.Add ""
RemoveThis.Add ""

Set Recipients = Item.Recipients
For i = Recipients.Count To 1 Step -1
    Set R = Recipients.Item(i)

    For y = 1 To RemoveThis.Count
        If LCase$(R.Address) = LCase$(RemoveThis(y)) Then
            Recipients.Remove i
            Exit For
        End If
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
RemoveRecipients Item
End Sub

If you are unfamiliar with VBA see here

share|improve this answer

You must log in to answer this question.

Not the answer you're looking for? Browse other questions tagged .