如何将当前规则名称导入outlook VBA

Sub ImportRule()
    Dim olApp As Outlook.Application
    Dim olRules As Outlook.Rules
    Dim olRule As Outlook.Rule
    Dim ruleName As String
    
    ' 获取Outlook应用程序对象
    Set olApp = Outlook.Application
    
    ' 获取规则集合对象
    Set olRules = olApp.Session.DefaultStore.GetRules
    
    ' 获取当前选中的规则名称
    ruleName = olApp.ActiveExplorer.Selection.Item(1).Name
    
    ' 根据规则名称查找规则对象
    For Each olRule In olRules
        If olRule.Name = ruleName Then
            ' 导入规则
            olRule.Execute ShowProgress:=True
            Exit For
        End If
    Next olRule
    
    ' 释放对象
    Set olRule = Nothing
    Set olRules = Nothing
    Set olApp = Nothing
End Sub