Cara Cepat Menjalankan Aturan Tertentu di Semua Folder Email dengan Outlook VBA

Secara default, Anda hanya dapat menjalankan aturan dalam satu folder dalam satu waktu. Dalam artikel ini, kami akan mengajari Anda cara menggunakan sepotong kode VBA untuk menjalankan aturan tertentu di semua folder email.

Outlook mengizinkan pengguna untuk menjalankan aturan secara manual. Anda cukup mengakses kotak dialog "Aturan dan Peringatan" dan tekan tombol "Jalankan Aturan Sekarang". Di kotak dialog berikutnya, pilih aturan tertentu dan pilih folder tempat Anda ingin menjalankan aturan ini. Namun, jika Anda ingin menjalankan aturan dengan cepat di semua folder email, Anda dapat menggunakan kode VBA berikut.

Jalankan Aturan Tertentu dengan Cepat di Semua Folder Email

1. Pertama-tama, start program Outlook Anda.
2. Kemudian di jendela Outlook utama, tekan tombol "Alt + F11".
3. Selanjutnya di jendela "Microsoft Visual Basic for Applications" yang muncul, Anda harus membuka modul yang tidak digunakan.
4. Selanjutnya, salin kode VBA di bawah ini ke jendela modul ini. Plus, Anda harus mengubah beberapa baris berdasarkan kasus Anda sendiri, seperti nama aturan.

Sub RunSpecificRule_AllMailFolders()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

    MsgBox "Complete!", vbExclamation + vbOKOnly, "Run Rule "
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objRules As Outlook.Rules
    Dim objRule As Outlook.Rule
    Dim objSubfolder As Outlook.Folder

    Set objRules = Outlook.Application.Session.DefaultStore.GetRules
    'Change the rule name as per your actual case
    Set objRule = objRules.Item("Move Mails to Temp")
 
    On Error Resume Next
    'Only work on non-empty Mail folder
    If objCurrentFolder.Items.count > 0 And objCurrentFolder.DefaultItemType = olMailItem Then
       With objRule
            .Enabled = True
            .Execute ShowProgress:=True, Folder:=objCurrentFolder, IncludeSubfolders:=True
       End With
    End If
 
    'Process subfolders 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 memeriksa pengaturan makro Outlook Anda, memastikan makro diizinkan.
6. Akhirnya Anda bisa mencobanya.

• Cukup klik ke subrutin "RunSpecificRule_AllMailFolders".
• Kemudian tekan tombol tombol F5 untuk memicu kode ini.
• Selanjutnya makro akan langsung berjalan.
• Setelah selesai, Anda akan mendapatkan pesan, seperti screenshot berikut. Ini mengacu pada aturan telah selesai.

Hati-hati dengan Makro Berbahaya

Seperti yang kita semua tahu, email berbahaya menjadi semakin merajalela. Email semacam itu sering membawa makro berbahaya. Jadi, jika Anda menyetel tingkat keamanan makro Outlook ke rendah, Anda harus waspada terhadap virus dan malware yang tersembunyi. Selain itu, sebaiknya gunakan alat perbaikan PST yang kuat, seperti DataNumen Outlook Repair. Itu bisa memperbaiki PST file dan ekstrak data maksimum untuk Anda tanpa berkeringat.

Pengantar Penulis:

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