Kuidas leida ja asendada mitmes Outlooki meilisõnumis olevat teksti pakettidena

Vaikimisi ei toeta Outlook teil teksti otsimist ja asendamist korraga mitmes meilis. Seega, kui soovite seda teha, võite vaadata seda artiklit. Siin õpetame teile, kuidas seda VBA koodi abil realiseerida.

Näiteks olete Outlookis lõpetanud mitu meili. Enne nende väljasaatmist avastate mõned vead ja soovite mõnda nendes kirjades teksti muuta. Üldjuhul peate igas meilis ükshaaval sooritama funktsiooni Otsi ja asenda. Siiski on see liiga tülikas. Seetõttu näitame siin teile tõhusamat viisi, mis võimaldab teil seda hulgi täita.

Mitme e-kirja teksti partii otsimine ja asendamine

1. Alustuseks käivitage oma Outlooki programm.
2. Seejärel avage klahvide Alt + F11 abil VBA redaktor.
3. Uues aknas pange allolev VBA kood moodulisse või projekti.

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ärast seda lisage see makro kiirpääsu tööriistaribale vastavalt "Kuidas Outlookis VBA-koodi käivitada".
5. Seejärel saate seda makrot nüüd proovida.

• Avage lähtekirjad.
• Seejärel klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
• Järgmiseks peate sisestama otsimiseks ja asendamiseks konkreetsed tekstid.
• Kui kuvatakse viip „Lõpetatud”, saate kontrollida allika e-kirju.

Outlooki taastamine ootamatutest krahhidest

Outlook võib aeg-ajalt kokku kukkuda, kui kasutate Outlooki valesti. Veelgi enam, tavaliselt on Outlooki tõsise krahhi korral teie Outlooki fail rikutud. Sel ajal peate proovima Outlooki andmete taastamist. Muidugi on see märkimisväärselt lihtne, kui teil on ajakohane andmete varukoopia. Aga kui ei, siis peate kasutama veenvat ja usaldusväärset välist tööriista, näiteks DataNumen Outlook Repair. See võib paranda PST viili ilma higistamata.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom