Como remover automaticamente caracteres especiais no assunto do e-mail via Outlook VBA

E-mails que contêm caracteres especiais tendem a ser bloqueados como spam. Portanto, você deve evitar caracteres especiais nos assuntos dos e-mails enviados. Agora, neste artigo, vamos ensiná-lo a permitir que o Outlook remova automaticamente caracteres especiais no assunto do email.

Meu artigo anterior “Como ser avisado ao tentar inserir caracteres especiais no assunto do e-mail do Outlook” introduziu uma maneira de evitar caracteres especiais ao redigir e-mails. Porém, alguns usuários desejam que o Outlook remova automaticamente caracteres especiais no assunto quando clicam no botão “Enviar” para enviar um e-mail. Focado nesse requisito, aqui iremos expor mais um trecho de código VBA. Ele pode perceber isso com facilidade sem esforço.

Remoção automática de caracteres especiais no assunto do e-mail

1. Primeiro, inicie o programa Outlook.
2. Em seguida, acesse o editor VBA conforme “Como executar o código VBA no seu Outlook".
3. Em seguida, no editor VBA, habilite “Microsoft VBScript Regular Expressions” com referência a “Como adicionar uma referência à biblioteca de objetos em VBA".
4. Depois disso, coloque o seguinte código no projeto “ThisOutlookSession”.

'Occurs when sending an email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRegExp As RegExp
    Dim strSubject As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       'Get the mail subject
       strSubject = objMail.Subject
 
       'Find special characters via regular expression
       Set objRegExp = New RegExp
       With objRegExp
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^a-zA-Z0-9]"
       End With
 
      'Replace special characters with space
      If objRegExp.test(strSubject) = True Then
         strSubject = objRegExp.Replace(strSubject, " ")
         objMail.Subject = strSubject
      End If
    End If
End Sub

5. Posteriormente, feche o editor VBA.
6. Desde então, toda vez que você tentar enviar um e-mail cujo assunto tenha caracteres especiais, o Outlook os removerá automaticamente, conforme mostrado na captura de tela a seguir.

Mantenha várias cópias de seus arquivos do Outlook

Como você lida com seu Outlook no trabalho diário? Na realidade, é altamente recomendável manter várias cópias de seus arquivos do Outlook. O objetivo é ajudá-lo a se livrar da dolorosa perda de dados do Outlook. Imagine o seguinte cenário. Por exemplo, seu Outlook trava repentinamente e os arquivos abertos ficam inacessíveis. Nesse caso, se você guardou outras cópias, não precisa se preocupar. No entanto, se você não tiver, você é obrigado a corrigir Outlook e recuperar ao máximo os dados danificados do Outlook. Nesse ponto, será necessário utilizar uma ferramenta poderosa, 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 recuperação sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com