Como remover automaticamente alguns caracteres especiais da linha de assunto ao enviar e-mails?
Você pode inserir alguns caracteres especiais acidentalmente enquanto digita o assunto na linha de assunto ao enviar um e-mail no Outlook, então você precisa remover esses caracteres especiais um por um. Neste artigo, vou falar sobre como remover automaticamente todos esses caracteres especiais do assunto ao enviar e-mails.
Remova automaticamente todos os caracteres especiais da linha de assunto ao enviar e-mails com código VBA
Para remover automaticamente os caracteres especiais da linha de assunto ao enviar e-mails, o seguinte código VBA pode ajudá-lo. Por favor, siga estas instruções:
1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.
Código VBA: Remoção automática de caracteres especiais da linha de assunto
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As Outlook.MailItem
Dim xRegExp As RegExp
Dim xSubject As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
xSubject = xMailItem.Subject
Set xRegExp = CreateObject("VBScript.RegExp")
With xRegExp
.Global = True
.IgnoreCase = True
.Pattern = "[^a-zA-Z0-9\u4e00-\u9fa5]"
End With
If xRegExp.test(xSubject) = False Then Exit Sub
xSubject = xRegExp.Replace(xSubject, "-")
xMailItem.Subject = GetTargetStr(xSubject)
Set RegExp = Nothing
End Sub
Function GetTargetStr(Str As String)
Dim xS, xStr As String
Dim i As Integer
Dim xIsFirst As Boolean
xIsFirst = True
xStr = ""
For i = 1 To Len(Str)
xS = Mid(Str, i, 1)
If xS = "-" Then
If xIsFirst Then
xS = " "
xIsFirst = False
Else
xS = ""
End If
Else
xIsFirst = True
End If
xStr = xStr + xS
Next i
GetTargetStr = xStr
End Function
3. Depois disso, ainda na janela do Microsoft Visual Basic for Applications, clique em Ferramentas > Referências para ir à caixa de diálogo Referências-Projeto1, e marque a opção Microsoft VBAScript Regular Expressions 1.0 na caixa de listagem Referências Disponíveis, veja a captura de tela:
4. Em seguida, clique em OK para fechar a caixa de diálogo; agora, quando você enviar uma mensagem com alguns caracteres especiais na linha de assunto, eles serão removidos automaticamente após o envio. Veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Notícia Urgente: Kutools para Outlook lança versão gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com vários destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir emails duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e divertidos / Aviso de chegada de emails importantes / Minimizar Outlook em vez de fechar...
👍 Praticidade com um clique: Responder a Todos com Anexos / Anti-Phishing Emails / 🕘Exibir fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
Use o Kutools no idioma que preferir – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
