Cara Batch Menemukan dan Mengganti Teks di Beberapa Email Outlook

Secara default, Outlook tidak mendukung Anda untuk menemukan dan mengganti teks di beberapa email secara bersamaan. Oleh karena itu, jika Anda ingin melakukannya, Anda dapat merujuk ke artikel ini. Di sini kami akan mengajari Anda cara mewujudkannya melalui kode VBA.

Misalnya, Anda telah menyelesaikan beberapa email di Outlook. Sebelum Anda mengirimkannya, Anda menemukan beberapa kesalahan dan ingin mengubah beberapa teks di email ini. Secara umum, Anda harus melakukan 'Temukan dan Ganti ”di setiap email satu per satu. Namun, itu terlalu rumit. Jadi, di sini kami akan menunjukkan kepada Anda cara yang lebih efektif, yang memungkinkan Anda mencapainya secara massal.

Temukan Batch dan Ganti Teks di Beberapa Email

1. Pertama-tama, jalankan program Outlook Anda.
2. Kemudian, akses editor VBA melalui tombol "Alt + F11".
3. Di jendela baru, masukkan kode VBA di bawah ini ke dalam modul atau proyek.

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 Bilah Alat Akses Cepat menurut "Cara Menjalankan Kode VBA di Outlook Anda".
5. Selanjutnya, Anda dapat mencoba makro ini sekarang.

• Buka email sumber.
• Lalu, klik tombol makro di Bilah Alat Akses Cepat.
• Selanjutnya, Anda perlu memasukkan teks khusus untuk mencari dan mengganti.
• Saat Anda mendapatkan prompt "Selesai", Anda dapat memeriksa email sumber.

Pulihkan Outlook dari Mogok Tak Terduga

Outlook bisa macet sekarang dan nanti jika Anda menangani Outlook Anda dengan tidak benar. Terlebih lagi, biasanya, jika Outlook crash parah, file Outlook Anda cenderung rusak. Pada saat itu, Anda harus mencoba pemulihan data Outlook. Tentu saja, ini akan sangat sederhana jika Anda memiliki cadangan data terbaru. Tetapi jika tidak, Anda akan diminta untuk menerapkan alat eksternal yang meyakinkan dan dapat dikreditkan, seperti DataNumen Outlook Repair. Hal ini dapat perbaiki PST mengajukan tanpa mengeluarkan keringat.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com