outlook-vba 3.3. Ссылка на любую папку в любом доступном хранилище

пример#

TestFldrChain() демонстрирует, как ссылаться на любую папку в любом доступном хранилище:

Sub TestFldrChain()

  Dim Fldr As Folder

  Set Fldr = Session.Folders("A").Folders("A2"). _

                           Folders("A21").Folders("A213")

  Debug.Print Join(GetFldrNames(Fldr), "|")

End Sub    

В TestFldrChain() : A - имя магазина; A2 - имя папки внутри A; A21 - это имя папки в A2, а A213 - имя папки в A21.

Что здесь происходит?

Session имеет свойство Folders которое является списком всех доступных магазинов.

Session.Folders(integer) , который я использовал во второй части этого учебника, позволяет мне последовательно проходить через магазины, когда я не знаю их имен. Session.Folders("A") позволяет мне получить доступ к папке, когда я знаю ее имя.

Session.Folders("A") - это папка, и у нее тоже есть свойство Folders .

Session.Folders("A").Folders("A2") дают мне доступ к папке «A2» в магазине «A».

Я могу связать столько Folders("x") s, сколько необходимо для доступа к любой папке. Если цепочка слишком длинная для одной строки, вы можете разделить оператор на несколько строк, как я.

Ищите самую глубоко вложенную папку в вашей установке и замените A, A2, A21 и A213 именами вашего магазина и папок. При необходимости увеличивайте или уменьшайте количество папок в цепочке.

Если вы обновите и запустите TestFldrChain() , он выведет следующее, за исключением того, что A, A2 и т. Д. Будут заменены вашими именами папок:

A|A2|A21|A213