2.3 頂級資料夾

在上面的資料夾窗格示例中，我只列出了三個標準資料夾：收件箱，草稿和已刪除郵件。還有其他標準資料夾，你可以根據需要建立自己的資料夾。有些人在收件箱下建立資料夾，但我更喜歡在與收件箱相同的級別建立新資料夾。你的資料夾可以包含子資料夾，這些子資料夾可以擁有自己的子資料夾到任何深度。

以下巨集將生成表單列表：

A
   A1
   A2
   A3
B
   B1
   B2
C
   C1
   C2
   C3
   C4

其中 A，B 和 C 是儲存，A1，B1，C1 等是 A，B 和 C 中的資料夾。如果 A1，B1，C1 等具有子資料夾，則該巨集不會列出它們。訪問更深層巢狀的資料夾將在本教程的下一部分中介紹。

Sub ListStoresAndTopLevelFolders()

  Dim FldrCrnt As Folder
  Dim InxFldrCrnt As Long
  Dim InxStoreCrnt As Long
  Dim StoreCrnt As Folder

  With Application.Session
    For InxStoreCrnt = 1 To .Folders.Count
      Set StoreCrnt = .Folders(InxStoreCrnt)
      With StoreCrnt
        Debug.Print .Name
        For InxFldrCrnt = .Folders.Count To 1 Step -1
          Set FldrCrnt = .Folders(InxFldrCrnt)
          With FldrCrnt
            Debug.Print "   " & .Name
          End With
        Next
      End With
    Next
  End With

End Sub