Excel VBA创建Outlook电子邮件规则以将传入邮件移动到特定文件夹

Sub CreateOutlookRule()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.Namespace
    Dim olRule As Outlook.Rule
    Dim olRuleCondition As Outlook.RuleCondition
    Dim olMoveRuleAction As Outlook.MoveOrCopyRuleAction
    Dim olRuleActions As Outlook.RuleActions
    Dim olInbox As Outlook.Folder
    Dim olTargetFolder As Outlook.Folder
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set olNS = olApp.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set olInbox = olNS.GetDefaultFolder(olFolderInbox)
    
    ' 创建规则对象
    Set olRule = olApp.CreateItem(olRuleItem)
    
    ' 设置规则名称
    olRule.Name = "Move to Specific Folder"
    
    ' 创建规则条件对象
    Set olRuleCondition = olRule.Conditions
    
    ' 设置规则条件为传入邮件
    olRuleCondition.SenderAddress = "sender@example.com"
    
    ' 创建规则操作对象
    Set olRuleActions = olRule.Actions
    
    ' 创建移动规则操作对象
    Set olMoveRuleAction = olRuleActions.MoveToFolder
    
    ' 获取目标文件夹
    Set olTargetFolder = olInbox.Folders("Specific Folder")
    
    ' 设置移动规则操作的目标文件夹
    olMoveRuleAction.Folder = olTargetFolder
    
    ' 将规则操作添加到规则对象
    olRuleActions.Add olMoveRuleAction
    
    ' 保存规则
    olRule.Save
    
    ' 释放对象
    Set olMoveRuleAction = Nothing
    Set olRuleActions = Nothing
    Set olRuleCondition = Nothing
    Set olRule = Nothing
    Set olTargetFolder = Nothing
    Set olInbox = Nothing
    Set olNS = Nothing
    Set olApp = Nothing
    
    MsgBox "Outlook rule created successfully!"
End Sub