访问共享收件箱GetSharedDefaultFolder时出现Outlook运行时错误

问题描述 #

• 仅访问olFolderInbox时代码可正常运行，能追踪收件箱邮件项
• 添加olFolderSentMail后，执行Set SentItems = ns.GetSharedDefaultFolder(objRecipient, olFolderSentMail).Items触发运行时错误，提示“Sorry, something went wrong. You may want to try again.”
• 已确认拥有该共享收件箱的所有者权限

可能原因 #

1. 共享邮箱的已发送文件夹未被Outlook正确映射或缓存
2. 收件人对象未解析，导致GetSharedDefaultFolder无法定位目标邮箱
3. 缓存模式下，共享邮箱的已发送文件夹未被纳入缓存范围
4. 权限未实际生效，需重新加载共享邮箱配置

解决步骤及修改代码 #

步骤1：确保收件人对象有效 #

调用Resolve方法验证收件人是否可被Outlook识别，避免无效收件人导致的文件夹获取失败。

步骤2：备选文件夹获取方式 #

若GetSharedDefaultFolder直接获取已发送文件夹失败，可通过共享邮箱根文件夹遍历查找目标文件夹（适配不同语言版本的Outlook）。

修改后的代码 #

Private WithEvents InboxItems As Outlook.Items
Private WithEvents SentItems As Outlook.Items

Friend Sub Application_Startup()
    On Error GoTo ErrorHandler

    Dim ns As Outlook.NameSpace
    Dim objRecipient As Outlook.Recipient
    Dim sharedMailboxRoot As Outlook.Folder
    Dim targetSentFolder As Outlook.Folder
    
    Set olApp = Outlook.Application
    Set ns = olApp.GetNamespace("MAPI")
    
    Set objRecipient = ns.CreateRecipient("PLACEHOLDERNAME")
    ' 解析收件人，确认邮箱地址有效
    If Not objRecipient.Resolve Then
        MsgBox "无法解析共享邮箱收件人，请检查邮箱名称是否正确。"
        Exit Sub
    End If
    
    ' 获取共享收件箱
    Set InboxItems = ns.GetSharedDefaultFolder(objRecipient, olFolderInbox).Items
    
    ' 尝试直接获取已发送邮件文件夹
    On Error Resume Next
    Set SentItems = ns.GetSharedDefaultFolder(objRecipient, olFolderSentMail).Items
    If Err.Number <> 0 Then
        Err.Clear
        On Error GoTo ErrorHandler
        ' 备选方案：遍历共享邮箱根文件夹查找已发送邮件
        Set sharedMailboxRoot = ns.GetSharedDefaultFolder(objRecipient, olFolderInbox).Parent
        For Each targetSentFolder In sharedMailboxRoot.Folders
            ' 根据Outlook语言调整名称：中文用"已发送邮件"，英文用"Sent Items"
            If targetSentFolder.Name = "已发送邮件" Then
                Set SentItems = targetSentFolder.Items
                Exit For
            End If
        Next
        If targetSentFolder Is Nothing Then
            MsgBox "未找到共享邮箱的已发送邮件文件夹。"
            Exit Sub
        End If
    End If
    
    Exit Sub

ErrorHandler:
   MsgBox "发生错误: " & Err.Description & " | 错误代码: " & Err.Number
    
End Sub

额外注意事项 #

• 若使用Outlook缓存模式，需在账户设置中勾选共享邮箱的“下载共享文件夹”选项
• 若权限仍未生效，可移除共享邮箱后重新添加，再重启Outlook
• 切换到在线模式（取消勾选“使用缓存Exchange模式”）测试，排除缓存导致的访问问题

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