Como remover automaticamente os endereços de e-mail do remetente e destinatários originais ao encaminhar um e-mail do Outlook

Ao encaminhar um e-mail no Outlook, os endereços de e-mail do remetente e dos destinatários originais serão incluídos no corpo da mensagem. Neste momento, por segurança, é melhor remover esses endereços. Este Post irá ensiná-lo a deixar o Outlook fazer isso automaticamente.

Em muitos casos, você precisará encaminhar alguns e-mails para outra pessoa. Por padrão, o cabeçalho do e-mail original será exibido no corpo do e-mail de encaminhamento. E o cabeçalho incluirá os endereços de e-mail do remetente e destinatários originais. Neste ponto, por segurança ou privacidade, você pode querer remover esses endereços de e-mail. No entanto, é muito tedioso removê-los manualmente. Portanto, aqui vamos orientá-lo a fazer com que seu Outlook realize automaticamente essa tarefa em seu nome.

Remover automaticamente os endereços de e-mail do remetente e destinatários originais ao encaminhar um e-mail

1. Para comotart, inicie o Outlook.
2. Em seguida, pressione as teclas “Alt + F11” para acessar o editor VBA.
3. Em seguida, copie o seguinte código VBA para o projeto “ThisOutlookSession”.

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_Forward(ByVal Forward As Object, Cancel As Boolean)
    Dim objRegExp As Object
    Dim strHTMLBody As String
 
    Forward.Display
    strHTMLBody = Forward.HTMLBody
 
    'Find email addresses in the body via Regular Expression
    Set objRegExp = CreateObject("vbscript.RegExp")
    With objRegExp
        .Pattern = "(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|""(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*"")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])"
        .IgnoreCase = True
        .Global = True
    End With
 
    'Remove email addresses
    If objRegExp.Test(strHTMLBody) Then
       Set objFoundResults = objRegExp.Execute(strHTMLBody)
       For i = 1 To objFoundResults.Count
           Forward.HTMLBody = Replace(Forward.HTMLBody, objFoundResults.Item(i - 1).Value, "")
       Next
    End If
 
    'Remove useless characters
    Forward.HTMLBody = Replace(Forward.HTMLBody, "[mailto:]", "")
    Forward.HTMLBody = Replace(Forward.HTMLBody, "()", "")
End Sub

4. Depois disso restart seu programa Outlook para ativar esta nova macro.
5. Eventualmente, você pode tirar uma foto:

• Selecione ou abra um e-mail.
• Em seguida, clique no botão “Forward” no grupo “Respond”.
• Por fim, um novo e-mail de encaminhamento será exibido, no qual os endereços de e-mail do remetente e dos destinatários originais foram excluídos.

Acalme-se em caso de corrupção do Outlook

Quando você está sujeito a algum problema em seu Outlook, você pode entrar em pânico, com medo de Corrupção do Outlook. No entanto, para ser honesto, a pressa e a preocupação geralmente podem resultar em muitos outros problemas para o Outlook. Portanto, não entre em pânico, mas mantenha a calma em casos relevantes. Além do mais, se você manteve uma ferramenta robusta de correção de PST, como DataNumen Outlook Repair, você pode simplesmente empregá-lo para resolver problemas do Outlook.

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 corrigir sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com