Como mover automaticamente todos os destinatários, exceto o remetente original, para o campo “CC” ao usar “Responder a todos” no Outlook

Alguns usuários sempre movem todos os destinatários, exceto o remetente original, para o campo “CC” ao usar “Responder a todos” no Outlook. Este artigo apresentará um método para automatizar o movimento com o Outlook VBA.

Por padrão, quando você seleciona “Responder a todos” para responder a um e-mail, todos os destinatários que estavam originalmente no campo “Para” ainda serão colocados no campo “Para” no e-mail de resposta. No entanto, muitos usuários gostariam de mover todos os destinatários para o campo “CC” com apenas o remetente original no campo “Para”. Em resposta a esse requisito, vamos expor aqui um trecho de código VBA, que pode realizá-lo automaticamente.

Mover automaticamente todos os destinatários, exceto o remetente original, para o campo "CC" em "Responder a todos"

1. Em primeiro lugar, inicie seu programa Outlook.
2. Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
3. Em seguida, você entrará no editor VBA do Outlook.
4. Posteriormente, você deve encontrar e abrir o projeto “ThisOutlookSession”.
5. Posteriormente, você precisará copiar e colar os seguintes códigos VBA nesta janela do projeto.

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

6. Depois disso, você deve assinar essa macro e alterar as configurações de macro do Outlook para permitir macros assinadas digitalmente.
7. Eventualmente, você pode restart seu Outlook para ativar o novo projeto VBA.
8. A partir de agora, toda vez que você responder e-mails usando “Responder a todos”, verá que todos os destinatários foram movidos para o campo “CC” com apenas o remetente original no campo “Para”.

Não entre em pânico em caso de corrupção PST

Se o seu arquivo PST contiver muitos dados valiosos, como informações do cliente e assim por diante, uma vez que seu arquivo PST seja corrompido, você deve ficar preocupado. No entanto, se você fez backup de seu arquivo recentemente, nunca entrará em pânico. Os backups permitirão que você recupere seus Outlook danificado dados com facilidade sem esforço. Mas se não houver tal backup, você ainda pode usar uma ferramenta de recuperação potente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com