Hvordan batch finne og erstatte tekst i flere Outlook-e-poster

Som standard støtter ikke Outlook deg for å finne og erstatte tekst i flere e-poster samtidig. Derfor, hvis du vil gjøre det, kan du referere til denne artikkelen. Her vil vi lære deg hvordan du kan realisere det via VBA-kode.

For eksempel har du fullført flere e-poster i Outlook. Før du sender dem ut, oppdager du noen feil og ønsker å endre noen tekster i disse e-postene. Generelt må du utføre "Finn og erstatt" i hver e-post én etter én. Likevel er det for tungvint. Derfor vil vi her vise deg en mer effektiv måte, som kan la deg oppnå det i bulk.

Batch finn og erstatt tekst i flere e-poster

1. Til å begynne med, start Outlook-programmet ditt.
2. Deretter får du tilgang til VBA-redigering via "Alt + F11" -tastene.
3. I det nye vinduet legger du inn VBA-koden nedenfor i en modul eller et prosjekt.

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. Etter det, legg til denne makroen til Quick Access Toolbar i henhold til "Hvordan kjøre VBA-kode i Outlook".
5. Deretter kan du prøve denne makroen nå.

• Åpne kilde-e-postene.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Deretter må du skrive inn de spesifikke tekstene for å finne og erstatte.
• Når du får ledeteksten "Fullført", kan du sjekke kilde-e-postene.

Gjenopprett Outlook fra uventede krasj

Outlook kan krasje nå og da hvis du håndterer Outlook på feil måte. I tillegg har Outlook-filen en tendens til å være korrupt i tilfelle en alvorlig Outlook-krasj. På det tidspunktet må du prøve Outlook-datagjenoppretting. Selvfølgelig vil det være betydelig enkelt hvis du har en oppdatert datasikkerhetskopiering. Men hvis ikke, må du bruke et overbevisende og troverdig eksternt verktøy, som DataNumen Outlook Repair. Det kan fikse PST fil uten å svette.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf reparasjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med