Kaip paketu rasti ir pakeisti tekstą keliuose „Outlook“ el. laiškuose

Pagal numatytuosius nustatymus „Outlook“ nepalaiko teksto paieškos ir keitimo keliuose el. laiškuose vienu metu. Todėl, jei norite tai padaryti, galite kreiptis į šį straipsnį. Čia mes išmokysime, kaip tai realizuoti naudojant VBA kodą.

Pavyzdžiui, baigėte keletą el. laiškų programoje „Outlook“. Prieš išsiųsdami juos aptinkate klaidų ir norite pakeisti kai kuriuos šių el. laiškų tekstus. Paprastai kiekviename el. laiške po vieną turite atlikti „Rasti ir pakeisti“. Vis dėlto tai pernelyg sudėtinga. Taigi čia parodysime jums efektyvesnį būdą, kurį naudodami galėsite tai atlikti masiškai.

Paketas rasti ir pakeisti tekstą keliuose el. laiškuose

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pasiekite VBA redaktorių naudodami klavišus „Alt + F11“.
3. Naujame lange įdėkite žemiau esantį VBA kodą į modulį arba 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. Po to pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos pagal „Kaip paleisti VBA kodą „Outlook“.".
5. Vėliau galite išbandyti šią makrokomandą dabar.

• Atidarykite šaltinio el. laiškus.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Tada turite įvesti konkrečius tekstus, kuriuos norite rasti ir pakeisti.
• Kai gausite raginimą „Atlikta“, galite patikrinti šaltinio el. laiškus.

Atkurkite „Outlook“ nuo netikėtų gedimų

„Outlook“ kartais gali užstrigti, jei netinkamai tvarkote „Outlook“. Be to, paprastai įvykus rimtai „Outlook“ gedimui jūsų „Outlook“ failas gali būti sugadintas. Tuo metu turite pabandyti atkurti „Outlook“ duomenis. Žinoma, tai bus labai paprasta, jei turėsite naujausią duomenų atsarginę kopiją. Bet jei ne, turėtumėte naudoti patikimą ir patikimą išorinį įrankį, pvz DataNumen Outlook Repair. Tai gali pataisyti PST failą neišmušdamas prakaito.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com