Outlook Reply to All, only original Sender is To and all others are CC'd

Is there a way when you click Reply To All that the only the original sender is in the To box and the others on the list are dropped to the CC box? For example User A sends an email to Users B thru G, all in the TO box. User E clicks the Replies to All box. This reply email will now have To: User A and Users B thru G (minus Users E) in the CC box.
Thanks
jswan714Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

David LeeCommented:
Hi, jswan714.

Outlook has no built-in means of doing this.  The only solution is to use a script/macro to create the reply.  If you don't mind clicking a different toolbar button to create this unique type of reply, then the code required is pretty simple.  If you want to continue using the existing Reply to All button, then the code is a bit more complex (i.e. it has to handle the possibility of multiple open windows, multiple open messages, etc.  I can provide the code and instructions for the first option.  The second option requires more time and effort than I have to invest right now.
0
jswan714Author Commented:
Thanks BlueDevilFan.
I am running Outlook 03 on Exchange 07.
Using a different tolbar button is fine and perferred.
Please provide code and instructions for a seperate button and how to add the new button to the toolbar. I know very little of scripting\macros.
Side not - in my searching for a solution, I see you all over out there creating scripts for solutions. I'm glad you can help.
Thanks again.
0
David LeeCommented:
You're welcome.

Here's the code.  Follow these instructions to add it to Outlook.

1.  Start Outlook
2.  Click Tools > Macro > Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7.  Edit the code as needed.  I included comments wherever something needs to or can change
8.  Click the diskette icon on the toolbar to save the changes
9.  Close the VB Editor

Follow these instructions to add a toolbar button.

1.  Click View > Toolbars > Customize
2.  Click the Toolbars tab
3.  Click New
4.  Name the toolbar
5.  Click the Commands tab
6.  Under Categories click Macros
7.  Under Commands click and hold on the macro, then drag it out and drop it on the new toolbar
8.  Dock the toolbar somewhere onscreen

To use the solution

1.  Select or open a message
2.  Click the toolbar button or run the macro
Sub UniqueReplyToAll()
    Dim olkMsg As Outlook.MailItem, olkRpl As Outlook.MailItem, olkRcp As Outlook.Recipient, olkAdd As Outlook.Recipient, intIndex As Integer
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set olkMsg = Application.ActiveExplorer.Selection(1)
        Case "Inspector"
            Set olkMsg = Application.ActiveInspector.CurrentItem
    End Select
    Set olkRpl = olkMsg.ReplyAll
    For intIndex = olkRpl.Recipients.count To 1 Step -1
        olkRpl.Recipients.Item(intIndex).Delete
    Next
    Set olkRcp = olkRpl.Recipients.Add(olkMsg.SenderName)
    olkRcp.Type = olTo
    For Each olkAdd In olkMsg.Recipients
        Set olkRcp = olkRpl.Recipients.Add(olkAdd.Name)
        Select Case olkAdd.Type
            Case olOriginator
                olkRcp.Type = olTo
            Case Else
                olkRcp.Type = olCC
        End Select
    Next
    olkRpl.Display
    Set olkMsg = Nothing
    Set olkRpl = Nothing
    Set olkRcp = Nothing
    Set olkAdd = Nothing
End Sub

Open in new window

0
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

jswan714Author Commented:
Thanks BlueEvilFan. But it's not working.
I don't see anything that needs edited - see your instructions #7. Remember I know nothing of this kind of scripting. I got it to work on my Outlook XP but need one change. When I click the special reply to all button, it includes my email address in the CC. Can you omit my email from the CC?
0
David LeeCommented:
"But it's not working." and "I got it to work on my Outlook XP"

Sorry, but I'm confused.  The statements seem to contradict.  Is it working and you want the change you described, or is it not working?
0
jswan714Author Commented:
Sorry for the confusion. It is working but it is also putting my email address in the CC. When I click this new special reply button, my email address is added to the CC line. I would like my email address not to be on the CC or the To line. I don't want the reply email to come to my Inbox again. I can pick it up from my Sent Items.
User A sends email to Users B thru G, I click this Special Replay To All button, my email address is in the CC line. I don't want my address included.
Thanks
0
David LeeCommented:
Got it.  Replace the code you have now with this version and test again.  It should filter you out.
Sub UniqueReplyToAll()
    Dim olkMsg As Outlook.MailItem, olkRpl As Outlook.MailItem, olkRcp As Outlook.Recipient, olkAdd As Outlook.Recipient, intIndex As Integer
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set olkMsg = Application.ActiveExplorer.Selection(1)
        Case "Inspector"
            Set olkMsg = Application.ActiveInspector.CurrentItem
    End Select
    Set olkRpl = olkMsg.ReplyAll
    For intIndex = olkRpl.Recipients.count To 1 Step -1
        olkRpl.Recipients.Item(intIndex).Delete
    Next
    Set olkRcp = olkRpl.Recipients.Add(olkMsg.SenderName)
    olkRcp.Type = olTo
    For Each olkAdd In olkMsg.Recipients
        If olkAdd.Name <> Session.CurrentUser Then
            Set olkRcp = olkRpl.Recipients.Add(olkAdd.Name)
            Select Case olkAdd.Type
                Case olOriginator
                    olkRcp.Type = olTo
                Case Else
                    olkRcp.Type = olCC
            End Select
        End If
    Next
    olkRpl.Display
    Set olkMsg = Nothing
    Set olkRpl = Nothing
    Set olkRcp = Nothing
    Set olkAdd = Nothing
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jswan714Author Commented:
Thank you BlueDevilFan! It looks good to me.
I will put it on the user's computer this week.
You da man!
0
jswan714Author Commented:
Perfect - just hat I needed!
0
David LeeCommented:
Thanks and you're welcome.  Glad I could help.
0
jswan714Author Commented:
Hey BlueDevilFan,
One problem I've just noticed. When I click the Special Reply to all, the email address not with my company do not show up correctly. It shows their names but not email address.
Example - Todd (todd@123.com) send an email to me (me@abc.com) and to Mo (mo@abc.com) and to John (john@456.com), I click the special reply to all button, Mo resolves the addres but John and Todd shows their names but does not resolve the email address.
Sorry for my bad testing.
Can you help me or sould I open a new post?
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Outlook

From novice to tech pro — start learning today.