访问共享邮箱收件箱中文件夹子文件夹的详细信息

Question

共享邮箱名称： trvx-prog.obs@orange.com

我需要：

• 访问文件夹 Madhvi 和 P_Wardah 及其四个子文件夹
• 设置报告提取的日期范围（包括主题、发件人、发送日期、我们正在访问的文件夹名称）
• 每周自动运行

我无法访问第二个文件夹和子文件夹

Option Explicit
Sub EmailStatsV3()
    Dim Item As Object
    Dim varOutput() As Variant
    Dim lngcount As Long
    Dim xlApp As Excel.Application
    Dim xlSht As Excel.Worksheet
    Dim ShareInbox As Outlook.MAPIFolder
    Dim olNs As Outlook.NameSpace
    Dim olRecip As Outlook.Recipient
    Dim SubFolder As Object

    Set olNs = Application.GetNamespace("MAPI")
    Set olRecip = olNs.CreateRecipient("trvx-prog.obs@orange.com") '// Owner's Name or email address
    Set ShareInbox = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox)
    Set SubFolder = ShareInbox.Folders("P_Wardah")
    
    ReDim varOutput(1 To SubFolder.Items.Count, 1 To 4)

    For Each Item In SubFolder.Items
        If TypeName(Item) = "MailItem" Then
            lngcount = lngcount + 1
            varOutput(lngcount, 1) = Item.ReceivedTime 'stats on when received
            varOutput(lngcount, 2) = Item.Subject 'to split out prefix
            varOutput(lngcount, 3) = Item.Sender
            varOutput(lngcount, 4) = SubFolder.Name
        End If
    Next

    'Creates a blank workbook in excel
    Set xlApp = New Excel.Application
    Set xlSht = xlApp.Workbooks.Add.Sheets(1)

    xlSht.Range("A1").Resize(UBound(varOutput, 1), _
      UBound(varOutput, 2)).Value = varOutput
    xlApp.Visible = True
End Sub

• 仅收到文件夹 P_Wardah 的详细信息
• 需要访问 Madhvi 的文件夹
• 需要访问 P_Wardah 和 Madhvi 的子文件夹（已处理、无周界、跟进、待处理）
• 需要将它们分类为每周的日期范围

Answer 1

这不是一个完整的答案 - 只是一个帮助你前进的帮助

您还需要一个循环来遍历 SubFolder Eg 的所有子文件夹

For Each xFldr In SubFolder.Folders
   ' Recursive Call to process xFldr
Next

所以你的文件夹处理例程需要在它自己的子程序中然后调用自己（递归调用）