Batch zoeken en vervangen van tekst in meerdere Outlook-e-mails

Standaard biedt Outlook geen ondersteuning voor het zoeken en vervangen van tekst in meerdere e-mails tegelijk. Daarom, als u het wilt doen, kunt u dit artikel raadplegen. Hier leren we u hoe u dit via VBA-code kunt realiseren.

U hebt bijvoorbeeld verschillende e-mails in Outlook afgerond. Voordat u ze verstuurt, ontdekt u enkele fouten en wilt u enkele teksten in deze e-mails aanpassen. Over het algemeen moet u 'Zoeken en vervangen' in elke e-mail één voor één uitvoeren. Toch is het te omslachtig. Daarom laten we u hier een effectievere manier zien, waarmee u dit in bulk kunt doen.

Batch tekst zoeken en vervangen in meerdere e-mails

1. Om te beginnen, start uw Outlook-programma.
2. Open vervolgens de VBA-editor via de toetsen "Alt + F11".
3. Plaats in het nieuwe venster de onderstaande VBA-code in een module of project.

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. Voeg daarna deze macro toe aan de werkbalk Snelle toegang volgens “Hoe u VBA-code in uw Outlook uitvoert'.
5. Vervolgens kunt u deze macro nu proberen.

• Open de bron-e-mails.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Vervolgens moet u de specifieke teksten invoeren die u wilt zoeken en vervangen.
• Wanneer u de prompt 'Voltooid' krijgt, kunt u de bron-e-mails controleren.

Herstel Outlook tegen onverwachte crashes

Outlook kan zo nu en dan crashen als u niet op de juiste manier met Outlook omgaat. Bovendien is uw Outlook-bestand meestal beschadigd in het geval van een ernstige Outlook-crash. Op dat moment moet u Outlook-gegevensherstel proberen. Natuurlijk zal het aanzienlijk eenvoudig zijn als u over een actuele gegevensback-up beschikt. Maar als dat niet het geval is, zou u een overtuigend en geloofwaardig extern hulpmiddel moeten gebruiken, bijvoorbeeld DataNumen Outlook Repair. Het kan repareer PST bestand zonder te zweten.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com