看起来你已经找对了方向——用Redemption来绕开Outlook的本地缓存限制！我来帮你把这个思路落地，结合你的现有代码，给出两个可行的解决方案，完全不需要修改服务器端的全局设置：

1. 直接通过Redemption绕开本地缓存访问服务器邮件 #

我注意到你已经在测试代码里尝试了MAPI_NO_CACHE参数，这正是破解问题的关键！默认情况下，Outlook的Items集合只会返回本地缓存里的邮件，超过自定义期限的旧邮件只存在于Exchange服务器上。MAPI_NO_CACHE标志会让Redemption直接连接服务器获取该文件夹下的所有邮件，不管本地是否缓存。

修改核心归档代码实现全量获取 #

咱们把这个逻辑整合到你的核心归档代码里，替换原来的遍历逻辑：

' 初始化Redemption会话（放在归档代码的开头）
Dim Session As RDOSession = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = app.Session.MAPIOBJECT ' 关联当前Outlook会话

Const MAPI_NO_CACHE As Integer = &H20000
For i = 1 To NumberOfFolders 
    Dim outlookFolder As Outlook.Folder = objFolder.Folders(i)
    FolderTitle = outlookFolder.Name.ToString 
    FolderTitle = RemoveSpecialChars(FolderTitle) 
    Dim FolderPath As String = Link & FolderTitle & "\" 
    If Not System.IO.Directory.Exists(FolderPath) Then 
        MkDir(FolderPath)
    End If 

    ' 用Redemption直接从服务器拉取完整邮件列表
    Dim rdoFolder As RDOFolder = Session.GetFolderFromID(outlookFolder.EntryID,, MAPI_NO_CACHE)
    emailorder = 0 
    ' 遍历服务器端的所有邮件（包括Outlook不可见的旧邮件）
    For Each rdoItem As RDOMail In rdoFolder.Items
        emailorder = emailorder + 1 
        Title = Strings.Right("000" & emailorder, 4) & " - " & RemoveSpecialChars(rdoItem.Subject) 
        path = FolderPath & Title & ".msg" 
        rdoItem.SaveAs(path) ' Redemption的SaveAs同样支持保存为标准MSG格式
        ProgressValue = ProgressValue + 1 
        ProgressBarArchiving.Value = ProgressValue 
    Next 

    ' 删除原Outlook文件夹（保留你的原有逻辑）
    outlookFolder.Delete() 
    NumberOfFolders = objFolder.Folders.Count 
    If NumberOfFolders > 0 Then 
        i = 0 
    Else 
        MsgBox(ProgressValue & " e-mails archived") 
        Me.Close() 
        Exit Sub 
    End If 
Next

注意事项 #

• 确保Redemption库已正确引用并在用户机器上注册
• 这种方式完全在插件层面实现，不会修改任何服务器或全局Outlook设置
• 如果文件夹邮件数量极大，建议在循环中加个Application.DoEvents()避免UI卡顿

2. 针对单个文件夹开启全量脱机同步（可选方案） #

如果你希望先把不可见邮件同步到本地再归档（可能提升后续操作速度），可以通过代码单独设置目标文件夹的脱机同步属性——只影响当前操作的文件夹，不会导致整个邮箱过载：

' 针对目标文件夹设置"始终保留脱机副本"
Dim rdoFolder As RDOFolder = Session.GetFolderFromID(outlookFolder.EntryID)
rdoFolder.OfflineSettings.CacheMode = olCacheAllItems ' 强制同步该文件夹的所有服务器邮件
rdoFolder.OfflineSettings.Save()

' 触发同步并等待完成（可选，确保邮件下载完毕再归档）
Session.SyncManager.StartFolderSync(rdoFolder.EntryID)
While Session.SyncManager.IsSyncing
    System.Threading.Thread.Sleep(1000)
    Application.DoEvents()
End While

同步完成后，你就可以用原来的Outlook对象模型代码来归档了。

3. 大文件夹性能优化建议 #

如果处理的邮件数量过万，直接遍历Items可能会很慢，建议用Redemption的MAPITable来高效批量获取邮件：

Dim table As RDOTable = rdoFolder.Items.MAPITable
table.Columns = "EntryID, Subject" ' 只加载需要的属性，减少内存占用
table.Execute()
Dim row As Object()
While table.GetNextRow(row)
    Dim entryID As String = row(0).ToString()
    Dim rdoItem As RDOMail = Session.GetMessageFromID(entryID,, MAPI_NO_CACHE)
    ' 执行保存邮件的逻辑...
End While

这种方式避免了一次性加载所有邮件对象，能显著提升处理大文件夹的速度。

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