Jak dávkově vyhledat a nahradit text ve více e-mailech aplikace Outlook

Ve výchozím nastavení Outlook nepodporuje hledání a nahrazování textu ve více e-mailech současně. Proto, pokud to chcete udělat, můžete se obrátit na tento článek. Zde vás naučíme, jak to realizovat pomocí kódu VBA.

Například jste dokončili několik e-mailů v aplikaci Outlook. Než je odešlete, objevíte nějaké chyby a chcete některé texty v těchto e-mailech upravit. Obecně platí, že v každém e-mailu musíte provést „Najít a nahradit“ jeden po druhém. Přesto je to příliš těžkopádné. Proto vám zde ukážeme efektivnější způsob, který vám umožní dosáhnout toho hromadně.

Hromadné hledání a nahrazování textu ve více e-mailech

1. Nejprve spusťte program Outlook.
2. Poté přejděte do editoru VBA pomocí kláves „Alt + F11“.
3. V novém okně vložte níže uvedený kód VBA do modulu nebo projektu.

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. Poté přidejte toto makro na panel nástrojů Rychlý přístup podle „Jak spustit kód VBA ve vašem Outlooku".
5. Následně si toto makro nyní můžete vyzkoušet.

• Otevřete zdrojové e-maily.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Dále musíte zadat konkrétní texty, které chcete najít a nahradit.
• Když se zobrazí výzva „Dokončeno“, můžete zkontrolovat zdrojové e-maily.

Obnovte aplikaci Outlook z neočekávaných selhání

Aplikace Outlook může občas selhat, pokud s aplikací Outlook nepracujete správně. A co víc, v případě vážného selhání aplikace Outlook bývá váš soubor aplikace Outlook poškozen. V té době se musíte pokusit o obnovu dat aplikace Outlook. Samozřejmě to bude značně jednoduché, pokud budete mít aktuální zálohu dat. Ale pokud ne, budete muset použít přesvědčivý a důvěryhodný externí nástroj, jako je DataNumen Outlook Repair. To může opravit PST pilník, aniž byste se zapotili.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava MDF a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com