Kako grupno pronaći i zamijeniti tekst u više poruka e-pošte programa Outlook

Outlook prema zadanim postavkama ne podržava istovremeno pronalaženje i zamjenu teksta u više poruka e-pošte. Stoga, ako to želite učiniti, možete pogledati ovaj članak. Ovdje ćemo vas naučiti kako to realizirati putem VBA koda.

Na primjer, završili ste nekoliko poruka e-pošte u programu Outlook. Prije nego što ih pošaljete, otkrijete neke pogreške i želite izmijeniti neke tekstove u tim e-porukama. Općenito, morate izvesti 'Pronađi i zamijeni' u svakoj e-poruci jednu po jednu. Ipak, previše je glomazan. Stoga ćemo vam ovdje pokazati učinkovitiji način koji vam može omogućiti da to postignete skupno.

Skupno pronalaženje i zamjena teksta u više poruka e-pošte

1. Za početak, pokrenite Outlook program.
2. Zatim pristupite VBA editoru preko tipki “Alt + F11”.
3. U novom prozoru stavite donji VBA kod u modul ili projekt.

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

• Otvorite izvorne e-poruke.
• Zatim kliknite gumb makronaredbe na alatnoj traci za brzi pristup.
• Zatim morate unijeti određene tekstove koje želite pronaći i zamijeniti.
• Kada dobijete upit "Dovršeno", možete provjeriti izvorne e-poruke.

Vratite Outlook nakon neočekivanih padova

Outlook se tu i tamo može srušiti ako svojim Outlookom rukujete nepravilno. Štoviše, obično, u slučaju ozbiljnog pada Outlooka, vaša Outlook datoteka ima tendenciju biti oštećena. U to vrijeme morate pokušati obnoviti Outlook podatke. Naravno, to će biti znatno jednostavno ako imate ažurnu sigurnosnu kopiju podataka. Ali ako ne, od vas će se tražiti da primijenite uvjerljiv i zaslužan vanjski alat, kao što je DataNumen Outlook Repair. To može popraviti PST turpijati bez oznoja.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com