Cómo excluir rápidamente a los destinatarios originales "CC" cuando se utiliza "Responder a todos" en Outlook

Al usar "Responder a todos", el correo electrónico de respuesta también incluirá los destinatarios "CC" del correo electrónico original en el campo "CC". Pero, si desea excluir a este tipo de destinatarios, puede utilizar el método presentado en este artículo.

A veces, desea responder un correo electrónico al remitente original y a los destinatarios "Para". En este escenario, definitivamente pensará en usar la opción "Responder a todos". Sin embargo, por este medio, si el correo original también tiene destinatarios "CC", el correo electrónico "Responder a todos" copiará automáticamente los destinatarios "CC" en el campo "CC". Si no desea responderles, debe eliminarlos manualmente, lo cual es un poco problemático. Ahora, a continuación, le enseñaremos cómo dejar que Outlook lo realice automáticamente según sus necesidades.

Excluya rápidamente a los destinatarios originales "CC" cuando utilice "Responder a todos"

1. Para empezar, abre Outlook.
2. Luego, acceda al editor de VBA leyendo el artículo anterior: "Cómo ejecutar código VBA en su Outlook".
3. A continuación, copie el siguiente código VBA en el proyecto "ThisOutlookSession".

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

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

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

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when you click "Reply All"
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objRecipient As Outlook.Recipient
    Dim i As Long
 
    'Ask you if to exclude CC recipients
    If MsgBox("Do you want to exclude original CC recipients? " , vbQuestion + vbYesNo) = vbYes Then
       'If select Yes, remove CC recipients
       For i = Response.Recipients.Count To 1 Step -1
           If Response.Recipients(i).Type = olCC Then
              Response.Recipients.Remove (i)
           End If
       Next
    End If
End Sub

4. Posteriormente, reinicie Outlook para activar este nuevo proyecto.
5. Desde entonces, cada vez que presione el botón "Responder a todos", aparecerá un mensaje, como se muestra en la siguiente imagen, que le preguntará si desea excluir a los destinatarios originales de CC.
6. Si selecciona "Sí", Outlook eliminará automáticamente los destinatarios en el campo "CC".

Manténgase bien preparado para los daños de Outlook

Como todos sabemos, nadie puede garantizar al 100% que es inmune a los daños en Outlook. Por lo tanto, es esencial que todos los usuarios habituales de Outlook tomen muchas precauciones. En primer lugar, una de las más importantes es mantener una copia de seguridad de los datos de Outlook actualizada y constante. Luego, es necesario aprender a utilizar la herramienta de reparación de la bandeja de entrada. Por último, pero no menos importante, es prudente y recomendable mantener un contacto con un experto. Corrección de Outlook herramienta en las proximidades, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com