Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
"Reply All" question
06-06-2017, 11:32 PM
Post: #1
Solved: 1 Month, 1 Week, 1 Day, 16 Hours, 47 Minutes, 20 Seconds ago "Reply All" question
hello,

I receive a email with a few recipients. When I click “Reply All" , then the original sender and other recipients will all in "TO" in the email. I have to move other recipients to "CC" and leave the original sender in the "To" field.

Can I set in outlook2010 so that only the original sender is in "TO" field and others in "CC" when I click "Reply All"?
Find all posts by this user
Quote this message in a reply
06-11-2017, 11:31 PM
Post: #2
Solved: 1 Month, 1 Week, 1 Day, 16 Hours, 47 Minutes, 20 Seconds ago RE: "Reply All" question
Hello,

For that, you can use VBA codes to do that. I just find a macro to do that.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
On Error Resume Next
If objExplorer.Selection.Item(1).Class = olMail Then
Set objMail = objExplorer.Selection.Item(1)
End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMail = Inspector.CurrentItem
End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
Dim objReplyAll As Outlook.MailItem
Dim objRecipient As Outlook.recipient
Dim objCCRecipient As Outlook.recipient
Dim strSender As String

Set objReplyAll = objMail.ReplyAll

strSender = objMail.SenderEmailAddress

For Each objRecipient In objMail.Recipients
'Exclude yourself
If objRecipient.Address <> "youremail@datanumen.com" Then
'Add the recipients as CC recipients
Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
objCCRecipient.Type = olCC
End If
Next

'Keep original sender in To field
objReplyAll.To = strSender
objReplyAll.Display

Cancel = True
End Sub

And here is the article with the details

https://www.datanumen.com/blogs/auto-mov...y-outlook/

Good luck
Find all posts by this user
Quote this message in a reply
06-13-2017, 09:24 PM
Post: #3
Solved: 1 Month, 1 Week, 1 Day, 16 Hours, 47 Minutes, 20 Seconds ago RE: "Reply All" question
Thanks for your help! It worksSmile
Find all posts by this user
Quote this message in a reply
Post Reply 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)