Quando você tenta responder ou encaminhar e-mails clicando no botão “Responder”, “Responder a todos” ou “Encaminhar”, deve haver o prefixo “RE” ou “FW” adicionado na frente do assunto do e-mail. Este artigo irá dizer-lhe como permitir que o Outlook os remova automaticamente com o VBA.
Em nosso artigo anterior – “2 métodos para encaminhar e-mails do Outlook sem o prefixo “FW” no assunto”, você pode obter duas soluções alternativas para encaminhar e-mails sem “FW”. Eles estão reenviando os e-mails e criando uma etapa rápida de “Avançar”, respectivamente. É óbvio que ambos não podem permitir que você remova automaticamente “FW” se você usar o botão normal “Avançar” no grupo “Responder”.
Portanto, por padrão, se você deseja remover o prefixo “RE” ou “FW” no assunto ao clicar no botão “Responder”, “Responder a todos” ou “Avançar”, você deve excluí-los manualmente todas as vezes. Será bastante problemático. Felizmente, você pode usar o Outlook VBA para remover automaticamente as palavras específicas no assunto do e-mail. Continue lendo para obter os códigos e etapas detalhados.
Remoção automática do prefixo “FW” ou “RE” ao encaminhar ou responder e-mails
- Para começar, abra o Outlook e acesse a guia "Desenvolvedor".
- Então você pode encontrar e clicar no botão “Visual Basic”.
- Em seguida, na nova janela, você deve clicar duas vezes no projeto “ThisOutlookSession”.
- Posteriormente, você precisa copiar e colar os seguintes códigos VBA nele.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
If InStr(Item.Subject, "RE") > 0 Then
'If you don't want the prompt,
'You can remove the MsgBox line and its correspoding "Else … End If" lines.
If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
If InStr(Item.Subject, "FW") > 0 Then
If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
Item.Subject = Trim(strSubject)
Item.Save
End Sub
- Depois disso, você deve assinar um certificado digital para esta macro.
- Mais tarde, você pode sair da janela “Visual Basic” e configurar o Outlook para habilitar apenas as macros assinadas digitalmente.
- Finalmente você pode tentar.
- Em primeiro lugar, selecione um e-mail e clique no botão “Responder”, “Responder a todos” ou “Avançar”
- Em seguida, a mensagem de resposta ou encaminhamento será aberta. Você pode redigir o e-mail como de costume.
- Ao clicar no botão “Enviar”, você receberá uma caixa de mensagem, como a imagem a seguir:
- Se você selecionar “Sim”, o prefixo “RE” ou “FW” será removido automaticamente. Se você selecionar “Não”, o prefixo não será removido.
O que não fazer ao lidar com e-mails do Outlook
O Outlook é vulnerável, então você deve ser cauteloso ao lidar com e-mails do Outlook. Por exemplo, se você receber e-mails de fontes desconhecidas, é melhor não abri-los, muito menos clicar nos links incorporados ou baixar os arquivos anexados. Esse tipo de e-mail pode conter macros maliciosas, vírus ou malware, que podem arruinar seus dados do Outlook em um piscar de olhos. Isso significa que você vai sofrer Danos no arquivo do Outlook. Nesse ponto, seu recurso exclusivo é empregar uma ferramenta de reparo poderosa e confiável, 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 banco de dados mdf corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com