Kako serijski pronaći i zamijeniti tekst u više Outlook e-poruka

Outlook vas prema zadanim postavkama ne podržava da pronađete i zamijenite tekst u više e-poruka u isto vrijeme. Stoga, ako želite to učiniti, možete pogledati ovaj članak. Ovdje ćemo vas naučiti kako to realizirati putem VBA koda.

Na primjer, završili ste nekoliko e-poruka u Outlooku. Prije nego što ih pošaljete, otkrijete neke greške i želite izmijeniti neke tekstove u ovim e-porukama. Općenito, morate izvršiti 'Pronađi i zamijeniti' u svakoj e-poruci jedan po jedan. Ipak, previše je glomazan. Stoga ćemo vam ovdje pokazati efikasniji način, koji vam može omogućiti da ga ostvarite na veliko.

Grupno pronalaženje i zamjena teksta u više e-poruka

1. Za početak, pokrenite Outlook program.
2. Zatim pristupite VBA editoru pomoću tastera “Alt + F11”.
3. U novom prozoru stavite VBA kod ispod u modul ili projekat.

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. Nakon toga, dodajte ovaj makro na alatnu traku za brzi pristup prema “Kako pokrenuti VBA kod u vašem Outlooku".
5. Nakon toga, sada možete isprobati ovaj makro.

• Otvorite izvornu e-poštu.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Zatim morate unijeti određene tekstove koje ćete pronaći i zamijeniti.
• Kada dobijete upit "Završeno", možete provjeriti izvorne e-poruke.

Vratite Outlook od neočekivanih rušenja

Outlook se povremeno može srušiti ako nepravilno rukujete Outlookom. Štaviše, obično, u slučaju ozbiljnog pada Outlooka, vaša Outlook datoteka ima tendenciju da bude oštećena. U tom trenutku morate pokušati oporavak podataka Outlooka. Naravno, to će biti prilično jednostavno ako imate ažurnu sigurnosnu kopiju podataka. Ali ako ne, od vas će se tražiti da primenite uverljiv i vredan eksterni alat, na primer DataNumen Outlook Repair. Može popraviti PST fajl bez znojenja.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf repair i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com