如何用VBA引用Outlook共享邮箱的非默认文件夹并遍历其子文件夹邮件

你现有代码返回NULL的核心原因是路径定位错误：你的文件夹结构中TEST文件夹与「收件箱」为同级目录，同属共享邮箱的根层级，但原代码尝试从「收件箱」的子目录中查找TEST，自然找不到对应对象。

Private Sub CommandButton1_Click()
    Dim ns          As Outlook.Namespace
    Dim olShareName As Outlook.Recipient
    Dim shareRoot   As MAPIFolder
    Dim TESTFolder  As MAPIFolder
    Dim SubFolder   As MAPIFolder
    Dim msg         As Outlook.MailItem
    Dim msgcount    As Integer
    Dim Items As Outlook.Items
    
    Set ns = GetNamespace("MAPI")
    Set olShareName = ns.CreateRecipient("test@outlook.com")
    ' 先验证收件人是否能正常解析，避免找不到邮箱
    If Not olShareName.Resolve Then
        MsgBox "无法解析共享邮箱账号"
        Exit Sub
    End If
    
    ' 获取共享邮箱根目录：默认收件箱的父级就是共享邮箱根
    Set shareRoot = ns.GetSharedDefaultFolder(olShareName, olFolderInbox).Parent
    ' 从根目录下查找TEST文件夹
    On Error Resume Next ' 防找不到文件夹直接报错
    Set TESTFolder = shareRoot.Folders("TEST")
    On Error GoTo 0
    
    If TESTFolder Is Nothing Then
        MsgBox "未找到TEST文件夹"
        Exit Sub
    End If
    
    msgcount = 0
    ' 如果只需要遍历TEST下第一层子文件夹，用以下逻辑即可
    ' 先处理TEST根目录的邮件
    Set Items = TESTFolder.Items
    msgcount = msgcount + Items.Count
    ' 遍历TEST下第一层子文件夹
    For Each SubFolder In TESTFolder.Folders
        msgcount = msgcount + SubFolder.Items.Count
        ' 此处可添加你自己的邮件处理逻辑
        ' For Each msg In SubFolder.Items
        '     你的处理逻辑
        ' Next
    Next

    ' ========== 如果需要遍历所有层级的嵌套子文件夹，用下方递归逻辑替换上面的统计逻辑即可 ==========
    ' msgcount = GetAllFolderMailCount(TESTFolder)
    
    MsgBox "TEST及其子文件夹共找到" & msgcount & "封邮件"
    
    ' 后续你的原有逻辑
    ' ....
End Sub

' 递归统计所有层级子文件夹的邮件数（仅多层嵌套场景需要定义）
Function GetAllFolderMailCount(folder As MAPIFolder) As Long
    Dim subF As MAPIFolder
    GetAllFolderMailCount = folder.Items.Count
    For Each subF In folder.Folders
        GetAllFolderMailCount = GetAllFolderMailCount + GetAllFolderMailCount(subF)
    Next
End Function

• 新增了收件人解析校验，避免因账号识别异常导致的错误
• 调整了文件夹定位逻辑：先通过默认收件箱获取共享邮箱根目录，再从根目录查找同级的TEST文件夹
• 新增了子文件夹遍历逻辑，可支持单层/全层级嵌套子文件夹的邮件查询需求

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