Bagaimana Menemukan Batch & Mengganti Kata Tertentu di Semua Nama Folder Outlook

Terkadang, Anda dapat mengganti nama beberapa folder Outlook secara bersamaan dengan menemukan dan mengganti kata-kata tertentu dalam namanya. Artikel ini akan mengajari Anda cara melakukannya dengan cepat menggunakan Outlook VBA.

Untuk mengatur email Anda dengan lebih baik, Anda pasti telah membuat banyak folder khusus di Outlook Anda. Dengan begitu banyak folder yang telah disesuaikan, terkadang, karena beberapa alasan, seperti persyaratan atasan atau perubahan preferensi Anda, Anda mungkin ingin mengganti nama folder-folder tersebut. Seringkali, mungkin Anda hanya ingin mengganti atau menghapus kata-kata tertentu dalam nama folder.

Secara umum, untuk mengganti nama folder, Anda cukup melakukan pitch dan klik kanan di atasnya. Kemudian di menu klik kanan, pilih "Ubah Nama Folder". Selanjutnya masukkan nama baru. Ini berguna jika Anda hanya ingin mengganti nama dua atau tiga folder. Tetapi jika Anda ingin mencari dan mengganti kata-kata tertentu pada nama semua folder Outlook, melakukannya secara manual sangat membosankan. Karenanya, kami akan merekomendasikan Anda cara cepat lainnya di bawah ini.

Temukan Batch & Ganti Kata Tertentu di Semua Nama Folder Outlook

1. Pertama-tama, jalankan program Outlook Anda.
2. Kemudian tekan tombol "Alt + F11" di jendela utama Outlook.
3. Selanjutnya di jendela editor Outlook VBA, buka modul yang tidak digunakan.
4. Selanjutnya, salin kode VBA berikut ke jendela modul ini.

Public strFind, strReplace As String

Private Sub FindReplaceWordsinFolderNames()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    'You need to input the specific words for find and replace
    strFind = InputBox("Enter the specific words you want to change.")
    strReplace = InputBox("Enter the specific words you want to change to. (Case Sensitive)")
 
    For Each objFolder In objFolders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Complete!", vbExclamation, "Rename Folders"
End Sub
 
Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    On Error Resume Next
    If InStr(LCase(objCurrentFolder.Name), LCase(strFind)) > 0 Then
       'Find and replace the specific words
       objCurrentFolder.Name = Replace(LCase(objCurrentFolder.Name), LCase(strFind), strReplace)
    End If
 
    'Process all folders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Setelah itu, Anda harus memastikan bahwa makro diizinkan di Outlook Anda.
6. Terakhir, Anda dapat mengklik ikon "Jalankan" di toolbar dan menekan tombol F5 untuk memicu makro baru.
7. Setelah itu, Anda perlu memasukkan kata-kata spesifik untuk menemukan dan mengganti.
8. Sekaligus, semua kata tertentu di nama folder Outlook akan diganti, seperti gambar layar berikut:

Atasi Masalah Data PST yang Menyusahkan

Ketika membahas masalah PST, seperti berbagai kesalahan PST atau file PST yang tidak dapat diakses, hampir semua orang akan panik dan cenderung menghindari topik ini. Namun, hal ini cukup umum terjadi di Outlook. Untuk menghindari masalah PST tersebut secara efektif, sebaiknya Anda mencadangkan file PST Anda secara berkala. Selain itu, disarankan juga untuk menyimpan cadangan yang kuat. Perbaikan PST alat di sekitarnya, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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