How to keep Reply from going to everyone list.

Hello Outlook Experts,
We are using 2003 on a POP3 account at our company and we have a slight dilemma. What is happening a lot of times is, when someone gets an email that was sent to the "everyone" list, they will click the "Reply" button, type a quick reply, and send that baby off instead of deleting the address from the To: box and inserting the address of the person that sent the message. Heck, it's easy to do, I've done it a couple of times myself. Then it sends that message AGAIN with whatever they typed to everyone at our company. It's kind of getting to be an annoyance, not to mention taking up tons of mail server space. So, with that said, I have done some investigating to see if there is some sort of, I don't know, VBA macro or something that will intercept the "Reply" button click event and instead of sending it back to the everyone list, send it just to the person that sent the message in the first place.
See, we have a mail server with, I think MDaemon or something like that for our mail program and a lot of us have rules set up in Outlook that dumps all those emails to our "everyone" folder. I'm not a VBA guy or anything, I've never written anything with it, I'm just an ASP.Net web developer here but thought I would take a crack at trying to figure this thing out. It is really getting to be a nuisance.

If anyone has ANYTHING to offer I would appreciate it.

Thanks in advance...


p.s. They try to train all the new employees that if they click "Reply" to not send it back to the "everyone" list but sometimes it just happens.
Who is Participating?

Improve company productivity with a Business Account.Sign Up

Patrick MatthewsConnect With a Mentor Commented:
RunForrestRun said:
>>Am I still on the right track?

Close.  Do not put the code in a regular VBA module (which your Module1 would be).  Under
VbaProject.OTM, look for Microsoft Office Outlook Objects.  Under that, look for
ThisOutlookSession.  *That* module is where you want the code to go.

After adding the code and clicking the save icon, you may have to close and relaunch
Outlook for it to take effect.  Also, make sure to check your macro security settings in the
Outlook UI (Tools|Macro|Security).  The code will not run if the security setting is High
or Very High.
If your mail server is Mdaemon (you might want to post the version), you can control mailing list behaviour in the server GUI:

1. In the main Mdaemon screen, go to Lists->Edit List
2. You will see a list of your mailing lists. Select
3. In the Options tab in Mailing List Editor, make sure the Reply-To address is blank (this will route replies to the sender)
4. In Routing Tab, select "Mdaemon will crack mail list" and tick "Generate unique Message-ID for each copy"
More on point 4 in my previous post: this will make a unique copy of the email for each recipient. This should assist Outlook in treating the email correctly and picking the right Reply-To address.
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Patrick MatthewsCommented:
Kind of a blunt instrument, but you could the code below into the ThisOutlookSession VBA module.
It would check outgoing messages for that "all" email address, and prompt the user if it finds that
address.  If you go with this approach, you'll have to make sure macro security is not set to high
or very high.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
    Dim recip As Recipient
    Dim Msg As Long 
    Const AllAddress As String = ""
    If Item.Class = olMail Then 
        For Each recip In Item.Recipients
            If LCase(recip.Address) = AllAddress Then
                Msg = MsgBox("You used '" & AllAddress & "' in the" & _
                    " receipient list." & Chr(10) & Chr(10) & "Are you sure you " & _
                    "want to do that?", vbYesNo, "Please confirm")
                If Msg <> vbYes Then
                    Cancel = True
                    MsgBox "Message send canceled"
                End If
                Exit For
            End If
    End If 
End Sub

Open in new window

RunForrestRunAuthor Commented:
'Morning guys,
these are all very good responses and I appreciate all of them. Okay, I'm not a VBA guy so here we go...In Outlook I go to Tools-->Macro-->Visual Basic Editor right? Then with the VB editor open in front of me and the VbaProject.OTM - Module1 code window open I just paste -- or type is what I like to do, helps me learn better (-: --  this code in there and save it right? Am I still on the right track? Of course I fix the AllAddress string to represent our real company.
Then I open up one of the "everyone" emails and click "Reply" to see if that does the trick?

RunForrestRunAuthor Commented:
THAT'S WHAT I'M TALKING 'BOUT!!! Sweet, it worked Matthew. Thank you so much. At first it didn't work, it just went ahead and sent the email to the "everyone" list, but then I FINALLY decided to listen to you and set my macro security to Low, tried it again, and 'viola it threw the message.
Matthew thank you so much, FilipZ thank you too I really appreciate everyone's input; you guys are the Experts, that's why I LOVE Experts Exchange.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.