VBA中Folder.Items.Count返回值恒定 无法获取Outlook文件夹全部邮件

通过VBA脚本读取Outlook指定文件夹邮件时，Folder.Items.Count属性始终返回固定值254，每日运行脚本均得到相同结果，但目标文件夹内实际存储邮件超过600封，当前可读取到的254封邮件恰好覆盖近1年的邮件范围。核心疑问为：Outlook是否存在此类默认的邮件读取数量限制，是否可以通过调整相关配置参数实现文件夹内全部邮件的读取。
对应实现代码如下：

Sub GetFromOutlook()

    Dim OutlookApp As Outlook.Application
    Dim OutlookNamespace As Namespace
    Dim Folder As MAPIFolder

    Dim OutlookMail As Variant
    Dim i As Integer
    
    Dim sh As Worksheet
    
    Set sh = Sheets("mails")
    sh.Activate
    
    Set OutlookApp = New Outlook.Application
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    ' 获取Ratios文件夹
    Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Parent.Folders("Ratios")
    
    i = 2
    MsgBox Folder.Items.Count
    For Each OutlookMail In Folder.Items
        If OutlookMail.SenderName = "noreply.olisnet@caceis.com" And (Left(OutlookMail.Subject, 6) = "Alerte" Or Left(OutlookMail.Subject, 13) = "Récapitulatif") Then
            Cells(i, 1).Value = OutlookMail.Subject
            Cells(i, 2).Value = OutlookMail.ReceivedTime
            Cells(i, 3).Value = OutlookMail.Body
            i = i + 1
        Else
            MsgBox OutlookMail.Subject
        End If
    Next OutlookMail
    
    Set Folder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
    Sheets("Param").Activate

End Sub

Outlook不存在固定254封的邮件读取数量硬限制，该问题由Exchange缓存模式默认同步规则导致：

• 若邮箱为Exchange类型（含Microsoft 365、企业本地Exchange邮箱），Outlook默认启用「缓存Exchange模式」，默认仅将近1年的邮件同步到本地OST缓存文件，超出时间范围的邮件仅存储在服务端
• VBA默认调用MAPI接口读取本地缓存内的邮件内容，因此Folder.Items.Count仅统计本地缓存的邮件数，即当前返回的254封近1年的邮件，无法读取服务端未同步到本地的历史邮件

可根据实际需求选择以下任意一种方案实现全量邮件读取：

• 调整Outlook本地缓存同步范围（操作最简单，无需修改代码）
  1. 打开Outlook，依次进入「文件」-「账户设置」-「账户设置」
  2. 选中当前使用的Exchange邮箱账户，点击「更改」
  3. 在设置页找到「脱机设置」板块，将「下载过去的电子邮件」滑块拖动到最右侧的「全部」选项
  4. 保存设置后重启Outlook，等待全量邮件同步到本地，再运行原有脚本即可读取文件夹内所有邮件
• 代码层面绕过本地缓存读取服务端内容（无需调整全局Outlook配置）
  获取到Folder对象后，可通过GetTable方法指定读取服务端全量内容，无需等待全量邮件同步到本地。该方法读取大文件夹时速度受服务端网络影响，建议搭配筛选条件使用，减少拉取的数据量。

如果调整缓存设置后仍无法读取全量邮件，可检查目标文件夹是否配置了自动存档规则，旧邮件被移动到了本地存档PST文件中。若存在该情况，需要在VBA中额外加载存档PST文件的存储对象，再读取对应文件夹内容。

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