如何用VBA遍历所有Outlook账户执行垃圾邮件规则？

原代码的核心问题是：循环遍历账户时，始终调用Application.Session.DefaultStore获取默认存储，导致所有循环操作都只作用于默认账户，而非当前迭代的账户。

修正后的VBA代码 #

Dim st As Outlook.Store
Dim myRules As Outlook.Rules
Dim rl As Outlook.Rule
Dim ruleList As String
Dim fldJunk As Outlook.Folder
Dim oAccount As Outlook.Account

For Each oAccount In Outlook.Application.Session.Accounts
    ' 获取当前账户对应的存储（替代默认存储）
    Set st = oAccount.DeliveryStore
    ' 获取当前账户存储中的规则
    Set myRules = st.GetRules
    ' 获取当前账户存储下的垃圾邮件文件夹
    Set fldJunk = st.GetDefaultFolder(olFolderJunk)

    ' 遍历当前账户的所有规则
    For Each rl In myRules
        If rl.Name = "Junk Cleaner" Then
            rl.Execute ShowProgress:=True, Folder:=fldJunk
            ruleList = ruleList & vbCrLf & oAccount.DisplayName & " - " & rl.Name
        End If
    Next
Next

' 可选：显示执行过的规则列表
If ruleList <> "" Then
    MsgBox "已执行以下规则：" & ruleList
Else
    MsgBox "未找到名为""Junk Cleaner""的规则"
End If

关键修改说明 #

• 将Application.Session.DefaultStore替换为oAccount.DeliveryStore：确保每次循环操作的是当前遍历账户对应的存储，而非固定的默认账户存储
• 从当前账户的Store中读取规则和垃圾邮件文件夹：保证规则和文件夹与当前账户匹配
• 优化规则列表输出：添加账户名称，方便确认每个账户的规则执行情况

内容的提问来源于stack exchange，提问作者Nicolas