Kako paketno najti in zamenjati besedilo v več Outlookovih e-poštnih sporočilih

Outlook privzeto ne podpira iskanja in zamenjave besedila v več e-poštnih sporočilih hkrati. Če torej želite to storiti, se lahko obrnete na ta članek. Tukaj vas bomo naučili, kako to realizirati s kodo VBA.

Na primer, dokončali ste več e-poštnih sporočil v Outlooku. Preden jih pošljete, odkrijete nekaj napak in želite spremeniti nekaj besedil v teh e-poštnih sporočilih. Na splošno morate izvesti 'Najdi in zamenjaj' v vsakem e-poštnem sporočilu enega za drugim. Kljub temu je preveč okoren. Zato vam bomo tukaj pokazali učinkovitejši način, s katerim lahko to dosežete v velikem obsegu.

Paketno iskanje in zamenjava besedila v več e-poštnih sporočilih

1. Za začetek zaženite program Outlook.
2. Nato odprite urejevalnik VBA prek tipk "Alt + F11".
3. V novem oknu vnesite spodnjo kodo VBA v modul ali 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. Po tem dodajte ta makro v orodno vrstico za hitri dostop v skladu z "Kako zagnati kodo VBA v Outlooku".
5. Kasneje lahko poskusite ta makro zdaj.

• Odprite izvorna e-poštna sporočila.
• Nato v orodni vrstici za hitri dostop kliknite gumb za makro.
• Nato morate vnesti določena besedila, ki jih želite poiskati in zamenjati.
• Ko prejmete poziv »Dokončano«, lahko preverite izvorna e-poštna sporočila.

Obnovite Outlook po nepričakovanih zrušitvah

Outlook se lahko občasno zruši, če z Outlookom ravnate nepravilno. Še več, običajno se v primeru hudega zrušitve Outlooka vaša Outlookova datoteka ponavadi poškoduje. Takrat morate poskusiti obnoviti Outlookove podatke. Seveda bo precej preprosto, če imate posodobljeno varnostno kopijo podatkov. Če pa ne, boste morali uporabiti prepričljivo in zaslužno zunanje orodje, kot je DataNumen Outlook Repair. Lahko popraviti PST datoteko, ne da bi se znojil.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com