Ako je možné hromadne vyhľadať a nahradiť text vo viacerých e-mailoch programu Outlook

Aplikácia Outlook predvolene nepodporuje vyhľadanie a nahradenie textu vo viacerých e-mailoch súčasne. Preto, ak to chcete urobiť, môžete sa obrátiť na tento článok. Tu vás naučíme, ako to realizovať pomocou kódu VBA.

Napríklad ste dokončili niekoľko e-mailov v Outlooku. Predtým, ako ich pošlete, zistíte chyby a chcete upraviť niektoré texty v týchto e-mailoch. Spravidla musíte v každom e-maile vykonať postup „Nájsť a nahradiť“ jeden po druhom. Napriek tomu je to príliš ťažkopádne. Takto vám ukážeme efektívnejší spôsob, ktorý vám umožní dosiahnuť ho hromadne.

Dávkové vyhľadanie a nahradenie textu vo viacerých e-mailoch

1. Najprv spustite program Outlook.
2. Potom vstúpte do editora VBA pomocou klávesov „Alt + F11“.
3. V novom okne vložte nižšie uvedený kód VBA do modulu alebo 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. Potom pridajte toto makro na Panel s nástrojmi Rýchly prístup podľa „Ako spustiť kód VBA v programe Outlook".
5. Následne môžete toto makro vyskúšať teraz.

• Otvorte zdrojové e-maily.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Ďalej musíte zadať konkrétne texty, ktoré chcete vyhľadať a nahradiť.
• Keď sa zobrazí výzva „Dokončené“, môžete skontrolovať zdrojové e-maily.

Obnovte program Outlook z neočakávaných zlyhaní

Pri nesprávnom zaobchádzaní s programom Outlook môže niekedy dôjsť k zlyhaniu. A čo viac, zvyčajne býva v prípade vážneho zlyhania Outlooku váš súbor Outlooku poškodený. V tom čase sa musíte pokúsiť o obnovenie údajov programu Outlook. Bude to samozrejme podstatne jednoduché, ak máte k dispozícii aktuálnu zálohu dát. Ak nie, budete požiadaní, aby ste použili presvedčivý a dôveryhodný externý nástroj, napríklad DataNumen Outlook Repair, Môže opraviť PST pilník bez toho, aby ste sa zapotili.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane oprava mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S