Como localizar e substituir texto em lote em vários e-mails do Outlook

Por padrão, o Outlook não oferece suporte para localizar e substituir texto em vários emails ao mesmo tempo. Portanto, se você quiser fazer isso, consulte este artigo. Aqui vamos ensinar como realizá-lo via código VBA.

Por exemplo, você terminou vários e-mails no Outlook. Antes de enviá-los, você descobre alguns erros e deseja modificar alguns textos nesses e-mails. Em geral, você deve executar 'Localizar e substituir' em cada e-mail, um por um. No entanto, é muito complicado. Portanto, aqui mostraremos uma maneira mais eficaz, que pode permitir que você faça isso em massa.

Localizar e substituir texto em lote em vários e-mails

1. Para começar, abra o programa Outlook.
2. Em seguida, acesse o editor VBA através das teclas “Alt + F11”.
3. Na nova janela, coloque o código VBA abaixo em um módulo ou projeto.

Sub FindReplaceInMultipleEmails()
    Dim strFind, strReplace As String
    Dim objInspectors As Outlook.Inspectors
    Dim objInspector As Outlook.Inspector
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Enter the specific text
    strFind = InputBox("Enter the text for find: (Case Sensitive)")
    strReplace = InputBox("Enter the text for replacement: (Case Sensitive)")
 
    If Trim(strFind) <> "" Then
       Set objInspectors = Outlook.Application.Inspectors
 
       For Each objInspector In objInspectors
           If objInspector.CurrentItem.Class = olMail Then
              If objInspector.EditorType = olEditorWord Then
                 Set objMail = objInspector.CurrentItem
                 Set objMailDocument = objMail.GetInspector.WordEditor
 
                 'Find & replace specific text
                 With objMailDocument.Content.Find
                      .ClearFormatting
                      .Text = strFind
                      .Replacement.ClearFormatting
                      .Replacement.Text = strReplace
                      .Forward = True
                      .Wrap = wdFindContinue
                      .Format = False
                      .MatchCase = True
                      .MatchWholeWord = False
                      .Execute Replace:=wdReplaceAll
                End With
                objMail.Save
             End If
         End If
      Next
 
      MsgBox "Completed!", vbInformation + vbOKOnly
    End If
End Sub

4. Depois disso, adicione esta macro à Barra de Ferramentas de Acesso Rápido de acordo com “Como executar o código VBA no seu Outlook".
5. Posteriormente, você pode tentar esta macro agora.

• Abra os e-mails de origem.
• Em seguida, clique no botão macro na Barra de Ferramentas de Acesso Rápido.
• Em seguida, você precisa inserir os textos específicos para localizar e substituir.
• Quando você receber o prompt “Concluído”, poderá verificar os e-mails de origem.

Restaurar o Outlook de falhas inesperadas

O Outlook pode travar de vez em quando se você manusear seu Outlook incorretamente. Além do mais, geralmente, no caso de falha grave do Outlook, seu arquivo do Outlook tende a ser corrompido. Nesse momento, você deve tentar a recuperação de dados do Outlook. Obviamente, será consideravelmente simples se você tiver um backup de dados atualizado. Mas se não, você seria obrigado a aplicar uma ferramenta externa convincente e confiável, como DataNumen Outlook Repair. Pode corrigir PST arquivo sem suar a camisa.

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