Outlook VBA -将邮件分配到某个类别后移动

Sub MoveEmailsByCategory()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objInbox As Outlook.Folder
    Dim objItems As Outlook.Items
    Dim objMail As Outlook.MailItem
    Dim objCategory As Outlook.Category
    Dim objDestFolder As Outlook.Folder
    Dim strCategory As String
    
    ' 设置类别名称
    strCategory = "待处理"
    
    ' 获取当前Outlook应用程序的命名空间
    Set objNamespace = Application.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 获取收件箱中的所有邮件
    Set objItems = objInbox.Items
    
    ' 遍历所有邮件
    For Each objMail In objItems
        ' 检查邮件是否有指定的类别
        If objMail.Categories = strCategory Then
            ' 获取目标文件夹（这里假设目标文件夹为"已处理"）
            Set objDestFolder = objInbox.Folders("已处理")
            
            ' 移动邮件到目标文件夹
            objMail.Move objDestFolder
        End If
    Next objMail
    
    ' 清空对象变量
    Set objMail = Nothing
    Set objItems = Nothing
    Set objInbox = Nothing
    Set objNamespace = Nothing
End Sub