Come trovare e sostituire in batch il testo in più e-mail di Outlook

Per impostazione predefinita, Outlook non ti supporta per trovare e sostituire il testo in più e-mail contemporaneamente. Pertanto, se vuoi farlo, puoi fare riferimento a questo articolo. Qui ti insegneremo come realizzarlo tramite codice VBA.

Ad esempio, hai terminato diverse e-mail in Outlook. Prima di inviarli, scopri alcuni errori e desideri modificare alcuni testi in queste e-mail. In generale, devi eseguire "Trova e sostituisci" in ogni e-mail uno per uno. Eppure è troppo ingombrante. Quindi qui ti mostreremo un modo più efficace, che può permetterti di realizzarlo alla rinfusa.

Batch trova e sostituisci il testo in più email

1. Per cominciare, start il tuo programma Outlook.
2. Quindi, accedi all'editor VBA tramite i tasti "Alt + F11".
3. Nella nuova finestra, inserisci il codice VBA di seguito in un modulo o progetto.

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. Successivamente, aggiungi questa macro alla barra degli strumenti di accesso rapido in base a "Come eseguire il codice VBA in Outlook".
5. Successivamente, puoi provare questa macro ora.

• Apri le email di origine.
• Quindi, fare clic sul pulsante macro nella barra di accesso rapido.
• Successivamente, è necessario inserire i testi specifici da trovare e sostituire.
• Quando ricevi il messaggio "Completato", puoi controllare le email di origine.

Ripristina Outlook da arresti anomali imprevisti

Outlook può bloccarsi di tanto in tanto se gestisci Outlook in modo improprio. Inoltre, di solito, in caso di grave arresto anomalo di Outlook, il file di Outlook tende a essere corrotto. A quel punto, devi tentare il recupero dei dati di Outlook. Naturalmente, sarà molto semplice se si dispone di un backup dei dati aggiornato. Ma in caso contrario, ti verrà richiesto di applicare uno strumento esterno convincente e credibile, come DataNumen Outlook Repair. Si può correggere PST file senza sudare.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com