Cara Batch Cari dan Ganti Teks dalam Beberapa E-mel Outlook

Secara lalai, Outlook tidak menyokong anda untuk mencari dan mengganti teks dalam banyak e-mel pada masa yang sama. Oleh itu, jika anda mahu melakukannya, anda boleh merujuk artikel ini. Di sini kami akan mengajar anda bagaimana mewujudkannya melalui kod VBA.

Contohnya, anda telah menyelesaikan beberapa e-mel di Outlook. Sebelum menghantarnya, anda menemui beberapa kesilapan dan ingin mengubahsuai beberapa teks dalam e-mel ini. Secara amnya, anda harus melakukan 'Cari dan Ganti' di setiap e-mel satu persatu. Namun, ia terlalu membebankan. Oleh itu, di sini kami akan menunjukkan kepada anda cara yang lebih berkesan, yang membolehkan anda mencapainya dengan banyak.

Batch Cari dan Ganti Teks dalam Beberapa E-mel

1. Untuk bermula, mulakan program Outlook anda.
2. Kemudian, akses editor VBA melalui kekunci "Alt + F11".
3. Di tetingkap baru, masukkan kod VBA di bawah ke dalam modul atau projek.

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. Setelah itu, tambahkan makro ini ke Bar Alat Akses Pantas menurut “Cara Menjalankan Kod VBA di Outlook Anda".
5. Selepas itu, anda boleh mencuba makro ini sekarang.

• Buka e-mel sumber.
• Kemudian, klik butang makro di Bar Alat Akses Pantas.
• Seterusnya, anda perlu memasukkan teks tertentu untuk mencari dan mengganti.
• Apabila anda mendapat arahan "Selesai", anda dapat memeriksa e-mel sumber.

Pulihkan Outlook dari Keretakan Tidak dijangka

Outlook boleh ranap sekarang dan kemudian jika anda mengendalikan Outlook dengan tidak betul. Lebih-lebih lagi, biasanya, sekiranya berlaku kerosakan Outlook yang teruk, fail Outlook anda cenderung rosak. Pada masa itu, anda harus mencuba pemulihan data Outlook. Sudah tentu, akan sangat mudah jika anda mempunyai sandaran data terkini. Tetapi jika tidak, anda diminta untuk menggunakan alat luaran yang cogent dan boleh dipercayai DataNumen Outlook Repair. Ia boleh betulkan PST fail tanpa berpeluh.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com