VBA循环访问所有收件箱，包括共享收件箱

Sub LoopThroughAllInboxes()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olSharedFolder As Outlook.Folder
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 循环访问当前用户的所有收件箱
    For Each olFolder In olNamespace.Folders
        ' 检查是否为共享收件箱
        If olFolder.Name = "共享收件箱" Then
            ' 循环访问共享收件箱中的子文件夹
            For Each olSharedFolder In olFolder.Folders
                ' 在这里执行对共享收件箱中子文件夹的操作
                ' 例如，可以遍历子文件夹中的邮件并进行处理
            Next olSharedFolder
        Else
            ' 在这里执行对普通收件箱的操作
            ' 例如，可以遍历收件箱中的邮件并进行处理
        End If
    Next olFolder
    
    ' 释放对象
    Set olSharedFolder = Nothing
    Set olFolder = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub