Comment rechercher et remplacer du texte par lots dans plusieurs e-mails Outlook

Par défaut, Outlook ne vous permet pas de rechercher et de remplacer du texte dans plusieurs e-mails en même temps. Par conséquent, si vous souhaitez le faire, vous pouvez vous référer à cet article. Ici, nous allons vous apprendre à le réaliser via le code VBA.

Par exemple, vous avez terminé plusieurs e-mails dans Outlook. Avant de les envoyer, vous découvrez des erreurs et souhaitez modifier certains textes de ces e-mails. En général, vous devez effectuer "Rechercher et remplacer" dans chaque e-mail un par un. Pourtant, c'est trop encombrant. Ainsi, ici, nous allons vous montrer un moyen plus efficace, qui peut vous permettre de l'accomplir en masse.

Rechercher et remplacer du texte par lots dans plusieurs e-mails

1. Pour commencer, ouvrez votre programme Outlook.
2. Ensuite, accédez à l'éditeur VBA via les touches "Alt + F11".
3. Dans la nouvelle fenêtre, placez le code VBA ci-dessous dans un module ou un projet.

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. Après cela, ajoutez cette macro à la barre d'outils d'accès rapide selon "Comment exécuter le code VBA dans votre Outlook" .
5. Par la suite, vous pouvez essayer cette macro maintenant.

• Ouvrez les e-mails sources.
• Ensuite, cliquez sur le bouton macro dans la barre d'outils d'accès rapide.
• Ensuite, vous devez entrer les textes spécifiques à rechercher et à remplacer.
• Lorsque vous obtenez l'invite "Terminé", vous pouvez vérifier les e-mails sources.

Restaurer Outlook à partir de plantages inattendus

Outlook peut se bloquer de temps en temps si vous gérez votre Outlook de manière incorrecte. De plus, généralement, en cas de grave plantage d'Outlook, votre fichier Outlook a tendance à être corrompu. À ce moment-là, vous devez essayer de récupérer les données d'Outlook. Bien sûr, ce sera considérablement simple si vous disposez d'une sauvegarde de données à jour. Mais si ce n'est pas le cas, vous devrez appliquer un outil externe pertinent et crédible, comme DataNumen Outlook Repair. Il peut fixer PST fichier sans transpirer.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com