outlook-vba 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

outlook-vba 2.4 Что вы должны помнить из этого урока

пример#

• Хранилище - это файл, в котором Outlook хранит сообщения электронной почты, элементы календаря, заметки, задачи и т. Д.
• В хранилище могут быть стандартные папки Outlook, такие как «Входящие» и «Отправленные».
• Магазин также может содержать созданные пользователем папки.
• Стандартные папки Outlook и созданные пользователем папки могут содержать созданные пользователем подпапки, под-подпапки и т. Д. На любую глубину.
• Как перечислить магазины.
• Как перечислить магазины и папки верхнего уровня в этих магазинах.

Исповедь: я не помню ни одного из «Хаусов». У меня есть подпрограммы и функции, которые меня помнят.