Jak zbiorczo znajdować i zamieniać tekst w wielu wiadomościach e-mail programu Outlook

Domyślnie Outlook nie obsługuje wyszukiwania i zamieniania tekstu w wielu wiadomościach e-mail jednocześnie. Dlatego jeśli chcesz to zrobić, możesz odwołać się do tego artykułu. Tutaj nauczymy Cię, jak to zrealizować za pomocą kodu VBA.

Na przykład skończyłeś kilka wiadomości e-mail w Outlooku. Zanim je wyślesz, odkryjesz błędy i chcesz zmodyfikować niektóre teksty w tych e-mailach. Ogólnie rzecz biorąc, musisz wykonać „Znajdź i zamień” w każdej wiadomości e-mail po kolei. Jednak jest to zbyt kłopotliwe. Dlatego tutaj pokażemy Ci bardziej skuteczny sposób, który pozwoli Ci to zrobić zbiorczo.

Wsadowe wyszukiwanie i zamienianie tekstu w wielu wiadomościach e-mail

1. Na początek uruchom program Outlook.
2. Następnie uzyskaj dostęp do edytora VBA za pomocą klawiszy „Alt + F11”.
3. W nowym oknie umieść poniższy kod VBA w module lub projekcie.

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. Następnie dodaj to makro do paska narzędzi szybkiego dostępu zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
5. Następnie możesz teraz wypróbować to makro.

• Otwórz e-maile źródłowe.
• Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
• Następnie musisz wprowadzić określone teksty, aby znaleźć i zamienić.
• Gdy pojawi się komunikat „Completed”, możesz sprawdzić źródłowe e-maile.

Przywróć program Outlook po nieoczekiwanych awariach

Program Outlook może ulec awarii od czasu do czasu, jeśli nieprawidłowo obchodzisz się z programem Outlook. Co więcej, zazwyczaj w przypadku poważnej awarii programu Outlook plik programu Outlook jest uszkodzony. W tym momencie musisz spróbować odzyskać dane z Outlooka. Oczywiście będzie to stosunkowo proste, jeśli będziesz mieć aktualną kopię zapasową danych. Ale jeśli nie, będziesz musiał zastosować przekonujące i wiarygodne narzędzie zewnętrzne, takie jak DataNumen Outlook Repair. To może naprawić PST plik bez zerwania potu.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com