Sådan batchfindes og erstattes tekst i flere Outlook-e-mails

Som standard understøtter Outlook dig ikke til at finde og erstatte tekst i flere e-mails på samme tid. Derfor, hvis du vil gøre det, kan du henvise til denne artikel. Her vil vi lære dig, hvordan du realiserer det via VBA-kode.

For eksempel har du afsluttet flere e-mails i Outlook. Før du sender dem ud, opdager du nogle fejl og ønsker at ændre nogle tekster i disse e-mails. Generelt skal du udføre 'Find og erstat' i hver e-mail én efter én. Alligevel er det for besværligt. Derfor vil vi her vise dig en mere effektiv måde, som kan lade dig opnå det i bulk.

Batchfind og erstat tekst i flere e-mails

1. Til at begynde med skal du starte dit Outlook-program.
2. Få derefter adgang til VBA-editor via "Alt + F11"-tasterne.
3. Indsæt VBA-koden nedenfor i et modul eller projekt i det nye vindue.

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. Derefter skal du tilføje denne makro til værktøjslinjen Hurtig adgang i henhold til “Sådan køres VBA-kode i din Outlook".
5. Efterfølgende kan du prøve denne makro nu.

• Åbn kildemails.
• Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
• Dernæst skal du indtaste de specifikke tekster for at finde og erstatte.
• Når du får "Completed"-prompten, kan du tjekke kilde-e-mails.

Gendan Outlook fra uventede nedbrud

Outlook kan gå ned nu og da, hvis du håndterer din Outlook forkert. Hvad mere er, normalt, i tilfælde af et alvorligt Outlook-nedbrud, har din Outlook-fil en tendens til at være korrupt. På det tidspunkt skal du prøve Outlook-datagendannelse. Det vil selvfølgelig være betydeligt enkelt, hvis du har en opdateret data backup. Men hvis ikke, vil du blive bedt om at anvende et overbevisende og troværdigt eksternt værktøj, f.eks DataNumen Outlook Repair. Det kan rette PST fil uden at svede.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf reparation og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com