如何修改VBA代码在Outlook共享邮箱中取消隐藏默认文件夹？

原代码仅对主账号生效的核心原因是Session.GetDefaultFolder默认指向当前主账号的存储区域。要操作共享邮箱shared@mail.com的文件夹，需先定位到该共享邮箱对应的Store对象，再从中获取目标默认文件夹。

以下是修改后的代码：

Option Explicit
  
Public Sub UnHideSharedMailboxFolders()
    Dim oStore As Outlook.Store
    Dim oFolder As Outlook.Folder
    Dim oPA As Outlook.PropertyAccessor
    Dim PropName As String
    Dim Value As Boolean
    
    PropName = "http://schemas.microsoft.com/mapi/proptag/0x10F4000B"
    Value = False
 
    ' 遍历所有已配置的存储，找到共享邮箱shared@mail.com
    For Each oStore In Session.Stores
        ' 可根据共享邮箱的显示名称或邮箱地址匹配，按需调整
        If oStore.DisplayName = "shared@mail.com" Then
            ' 获取共享邮箱中的笔记文件夹（可替换为其他默认文件夹类型）
            Set oFolder = oStore.GetDefaultFolder(olFolderNotes)
            Exit For
        End If
    Next oStore
    
    ' 如果找到目标共享邮箱的文件夹，执行取消隐藏操作
    If Not oFolder Is Nothing Then
        Set oPA = oFolder.PropertyAccessor
        oPA.SetProperty PropName, Value
        MsgBox "共享邮箱文件夹已取消隐藏", vbInformation
    Else
        MsgBox "未找到共享邮箱shared@mail.com", vbExclamation
    End If
 
    ' 释放对象
    Set oFolder = Nothing
    Set oPA = Nothing
    Set oStore = Nothing
End Sub

关键修改说明： #

• 定位共享邮箱Store：通过遍历Session.Stores集合，匹配共享邮箱的显示名称，找到对应的存储对象。如果共享邮箱显示名称不是邮箱地址，直接替换oStore.DisplayName的匹配值即可。
• 获取共享邮箱的默认文件夹：使用Store.GetDefaultFolder替代Session.GetDefaultFolder，确保操作的是共享邮箱内的文件夹。
• 基础错误处理：增加未找到共享邮箱时的提示，避免无意义的运行错误。

可自定义调整的部分： #

如果需要取消其他默认文件夹的隐藏，将olFolderNotes替换为对应的枚举值即可，例如：

• 收件箱：olFolderInbox
• 已发送邮件：olFolderSentMail
• 草稿箱：olFolderDrafts
• 已删除邮件：olFolderDeletedItems

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