Outlook 2010 规则：如果收件人数量超过 5 个，则移动邮件

Outlook 2010是一款常用的电子邮件客户端软件，它提供了丰富的功能来帮助用户管理和组织电子邮件。其中一个很有用的功能是规则，通过设置规则，用户可以对收到的邮件进行自动分类、移动、删除等操作。在Outlook 2010中，我们可以设置一条规则，当收件人数量超过5个时，自动将邮件移动到指定的文件夹中。

VBA
Sub MoveEmails()
    Dim Inbox As Outlook.Folder
    Dim Subfolder As Outlook.Folder
    Dim MailItem As Object
    Dim RecipientsCount As Integer
    
    ' 获取收件箱
    Set Inbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    
    ' 创建或获取重要邮件文件夹
    On Error Resume Next
    Set Subfolder = Inbox.Folders("重要邮件")
    On Error GoTo 0
    If Subfolder Is Nothing Then
        Set Subfolder = Inbox.Folders.Add("重要邮件")
    End If
    
    ' 遍历收件箱中的所有邮件
    For Each MailItem In Inbox.Items
        ' 检查收件人数量
        If MailItem.Recipients.Count > 5 Then
            ' 移动邮件到重要邮件文件夹
            MailItem.Move Subfolder
        End If
    Next MailItem
    
    ' 清空对象
    Set Inbox = Nothing
    Set Subfolder = Nothing
    Set MailItem = Nothing
End Sub