Cum să găsiți și să înlocuiți textul în lot în mai multe e-mailuri Outlook

În mod implicit, Outlook nu vă ajută să găsiți și să înlocuiți text în mai multe e-mailuri în același timp. Prin urmare, dacă doriți să o faceți, puteți consulta acest articol. Aici vă vom învăța cum să o realizați prin codul VBA.

De exemplu, ați terminat mai multe e-mailuri în Outlook. Înainte de a le trimite, descoperiți unele greșeli și doriți să modificați unele texte din aceste e-mailuri. În general, trebuie să efectuați „Găsiți și înlocuiți” în fiecare e-mail unul câte unul. Totuși, este prea greoi. Astfel, aici vă vom arăta o modalitate mai eficientă, care vă poate permite să o realizați în vrac.

Găsiți și înlocuiți textul în lot în mai multe e-mailuri

1. Pentru început, porniți programul Outlook.
2. Apoi, accesați editorul VBA prin tastele „Alt + F11”.
3. În fereastra nouă, introduceți codul VBA de mai jos într-un modul sau proiect.

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. După aceea, adăugați această macrocomandă la Bara de instrumente Acces rapid conform „Cum să rulați codul VBA în Outlook".
5. Ulterior, puteți încerca această macrocomandă acum.

• Deschideți e-mailurile sursă.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Apoi, trebuie să introduceți textele specifice pentru a găsi și înlocui.
• Când primiți solicitarea „Finalizat”, puteți verifica e-mailurile sursă.

Restaurați Outlook de la blocări neașteptate

Outlook se poate bloca din când în când dacă vă gestionați Outlook incorect. În plus, de obicei, în cazul unui accident sever al Outlook, fișierul dvs. Outlook tinde să fie corupt. În acel moment, trebuie să încercați recuperarea datelor Outlook. Desigur, va fi considerabil de simplu dacă aveți o copie de rezervă a datelor actualizată. Dar dacă nu, vi se va cere să aplicați un instrument extern convingător și meritabil, cum ar fi DataNumen Outlook Repair. Poate reparați PST dosar fără a transpira.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparatie mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com