Outlook VBA使用数组批量处理多文件夹报错求助

你的代码核心问题是把文件夹名称字符串数组当成了Outlook文件夹对象来操作，导致属性调用错误，具体问题如下：

• 数组存储的是字符串，不是Folder对象
  你定义的Ofldr数组里是"Fldr2"、"Fldr3"这些字符串，而不是Outlook的Folder实例。直接调用Ofldr.Items或者Ofldr.UnReadItemCount肯定会报错——字符串没有这些属性。

• 遍历逻辑错误
  For Each Message In Ofldr.Items完全不符合逻辑，因为Ofldr是数组，不是单个文件夹对象，根本没有Items属性。

你需要先把字符串转换成对应的Outlook Folder对象，再遍历每个文件夹里的邮件：

Dim folderNames As Variant
Dim folderName As Variant
Dim targetFolder As Outlook.Folder
Dim msg As Outlook.MailItem
Dim receivedDate As String

' 存储文件夹名称数组
folderNames = Array("Fldr2", "Fldr3")

' 遍历每个文件夹名称
For Each folderName In folderNames
    ' 获取对应的Folder对象（若文件夹不在收件箱下，需调整路径层级）
    Set targetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders(folderName)
    
    ' 检查未读邮件数量
    If targetFolder.UnReadItemCount > 0 Then
        ' 遍历文件夹里的邮件
        For Each msg In targetFolder.Items
            ' 只处理邮件项
            If TypeName(msg) = "MailItem" Then
                If msg.UnRead Then
                    ' 直接比较日期值，比格式化字符串更可靠
                    If msg.ReceivedTime < Date Then
                        msg.UnRead = False
                        ' 保存更改
                        msg.Save
                    End If
                End If
            End If
        Next msg
    End If
Next folderName

• 确保"Fldr2"、"Fldr3"是当前邮箱中存在的文件夹名称，路径要匹配实际位置
• 直接比较日期值可以避免因区域设置导致的字符串对比错误
• 修改邮件属性后必须调用Save方法才能保存更改

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