Kā sērijveidā atrast un aizstāt tekstu vairākos Outlook e-pastos

Pēc noklusējuma programma Outlook neatbalsta teksta atrašanu un aizstāšanu vairākos e-pastos vienlaikus. Tādēļ, ja vēlaties to izdarīt, varat atsaukties uz šo rakstu. Šeit mēs iemācīsim jums to realizēt, izmantojot VBA kodu.

Piemēram, programmā Outlook esat pabeidzis vairākus e-pasta ziņojumus. Pirms tos izsūtīt, jūs atklājat dažas kļūdas un vēlaties mainīt dažus tekstus šajos e-pasta ziņojumos. Parasti katrā e-pastā ir jāveic “Atrast un aizstāt” pa vienam. Tomēr tas ir pārāk apgrūtinoši. Tādējādi šeit mēs parādīsim efektīvāku veidu, kas var ļaut jums to paveikt vairumā.

Sērijveida atrašana un aizstāšana ar tekstu vairākos e-pastos

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Pēc tam piekļūstiet VBA redaktoram, izmantojot taustiņus “Alt + F11”.
3. Jaunajā logā ievietojiet VBA kodu zemāk modulī vai projektā.

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. Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai atbilstoši “Kā palaist VBA kodu programmā Outlook".
5. Pēc tam jūs varat izmēģināt šo makro tūlīt.

• Atveriet avota e-pastus.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Tālāk jums jāievada konkrētie teksti, lai tos atrastu un aizstātu.
• Kad saņemat uzvedni “Pabeigts”, varat pārbaudīt avota e-pastus.

Atjaunojiet programmu Outlook no neparedzētām avārijām

Outlook var šad tad avarēt, ja nepareizi apstrādājat programmu Outlook. Turklāt parasti nopietnas Outlook avārijas gadījumā jūsu Outlook fails mēdz būt bojāts. Tajā laikā jums ir jāmēģina atjaunot Outlook datus. Protams, tas būs ievērojami vienkārši, ja jums būs atjaunināta datu dublēšana. Bet, ja nē, jums būs jāpiemēro pārliecinošs un uzticams ārējs rīks, piemēram DataNumen Outlook Repair. Tā var noteikt PST vīle nesalaužot sviedrus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar