Outlook VBA整理默认文件夹子文件夹报错：OBJECT REQUIRED

我想用VBA代码整理Outlook默认文件夹的子文件夹，但运行时在语句Set olBackupEnd2022 = olBackup.Folders("BACKUP END 2022")处触发「OBJECT REQUIRED」错误。文件夹结构显示默认邮箱下有「BACKUP」文件夹，其下包含「BACKUP END 2022」子文件夹。

原代码如下：

Sub OrganizeEmailsBySender()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.NameSpace
    Dim olInbox As Outlook.Folder
    Dim olBackupFolder As Outlook.Folder
    Dim olBackupEnd2022Folder As Outlook.Folder
    Dim olMail As Outlook.mailItem
    Dim olItems As Outlook.Items
    Dim olSenderFolder As Outlook.Folder
    Dim olSenderName As String
    Dim olItem As Object
    Dim i As Long
    
    ' Initialize Outlook application and namespace
    Set olApp = Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' Specify the default folder and the BACKUP END 2022 folder within it
    Set olBackup = olNamespace.GetDefaultFolder(olFolderBACKUP)
    Set olBackupEnd2022 = olBackup.Folders("BACKUP END 2022")
    Set olItems = olBackupEnd2022Folder.Items
    
    ' Loop through each email in the BACKUP END 2022 folder
    For i = olItems.Count To 1 Step -1
        Set olItem = olItems(i)
        
        ' Check if the item is a mail item
        If TypeOf olItem Is Outlook.mailItem Then
            Set olMail = olItem
            olSenderName = olMail.SenderName
            
            ' Check if a folder for the sender already exists
            On Error Resume Next
            Set olSenderFolder = olBackupEnd2022Folder.Folders(olSenderName)
            On Error GoTo 0
            
            ' If the folder does not exist, create it
            If olSenderFolder Is Nothing Then
                Set olSenderFolder = olBackupEnd2022Folder.Folders.Add(olSenderName)
            End If
            
            ' Move the email to the sender's folder
            olMail.Move olSenderFolder
        End If
    Next i
    
    ' Clean up
    Set olMail = Nothing
    Set olItems = Nothing
    Set olInbox = Nothing
    Set olBackupFolder = Nothing
    Set olBackupEnd2022Folder = Nothing
    Set olSenderFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    MsgBox "Emails have been organized by sender's name.", vbInformation
End Sub

错误原因分析 #

• 变量名不匹配：代码声明了olBackupFolder和olBackupEnd2022Folder，但实际使用的是未声明的olBackup和olBackupEnd2022，VBA中未声明变量默认是Variant类型，无法正确指向Outlook文件夹对象，触发「OBJECT REQUIRED」错误。
• 错误的默认文件夹常量：Outlook没有olFolderBACKUP这个内置常量，GetDefaultFolder仅支持系统默认文件夹（如收件箱、已发送邮件等）。「BACKUP」是自定义文件夹，需通过邮箱根目录定位。
• 变量引用混乱：后续代码中使用olBackupEnd2022Folder，但前面赋值给的是olBackupEnd2022，导致后续引用的对象未初始化。

修正后的代码 #

Sub OrganizeEmailsBySender()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.NameSpace
    Dim olRootFolder As Outlook.Folder ' 邮箱根目录
    Dim olBackupFolder As Outlook.Folder
    Dim olBackupEnd2022Folder As Outlook.Folder
    Dim olMail As Outlook.MailItem
    Dim olItems As Outlook.Items
    Dim olSenderFolder As Outlook.Folder
    Dim olSenderName As String
    Dim olItem As Object
    Dim i As Long
    
    ' 初始化Outlook应用和命名空间
    Set olApp = Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 获取默认邮箱的根目录（替换为你的邮箱名称，或直接取第一个邮箱）
    Set olRootFolder = olNamespace.Folders("你的邮箱地址@xxx.com") ' 例如："jake@example.com"
    
    ' 定位BACKUP文件夹及其子文件夹BACKUP END 2022
    On Error Resume Next
    Set olBackupFolder = olRootFolder.Folders("BACKUP")
    On Error GoTo 0
    
    If olBackupFolder Is Nothing Then
        MsgBox "未找到BACKUP文件夹", vbExclamation
        Exit Sub
    End If
    
    On Error Resume Next
    Set olBackupEnd2022Folder = olBackupFolder.Folders("BACKUP END 2022")
    On Error GoTo 0
    
    If olBackupEnd2022Folder Is Nothing Then
        MsgBox "未找到BACKUP END 2022文件夹", vbExclamation
        Exit Sub
    End If
    
    Set olItems = olBackupEnd2022Folder.Items
    
    ' 反向遍历邮件（避免移动后索引混乱）
    For i = olItems.Count To 1 Step -1
        Set olItem = olItems(i)
        
        If TypeOf olItem Is Outlook.MailItem Then
            Set olMail = olItem
            olSenderName = olMail.SenderName
            
            ' 检查发件人文件夹是否存在
            On Error Resume Next
            Set olSenderFolder = olBackupEnd2022Folder.Folders(olSenderName)
            On Error GoTo 0
            
            ' 不存在则创建
            If olSenderFolder Is Nothing Then
                Set olSenderFolder = olBackupEnd2022Folder.Folders.Add(olSenderName)
            End If
            
            ' 移动邮件到对应文件夹
            olMail.Move olSenderFolder
        End If
    Next i
    
    ' 清理对象
    Set olMail = Nothing
    Set olItems = Nothing
    Set olSenderFolder = Nothing
    Set olBackupEnd2022Folder = Nothing
    Set olBackupFolder = Nothing
    Set olRootFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    MsgBox "邮件已按发件人名称整理完成。", vbInformation
End Sub

使用说明 #

1. 将代码中的"你的邮箱地址@xxx.com"替换为你Outlook中的默认邮箱地址（可在Outlook账户设置中查看）。
2. 运行前确保「BACKUP」和「BACKUP END 2022」文件夹存在于你的邮箱根目录下。

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