Свойство Folder.Folders (Outlook)
Возвращает коллекцию Папок , представляющую все папки, содержащиеся в указанной папке. Только для чтения.
Синтаксис
выражение. Folders
Выражение Переменная, представляющая объект Folder .
Замечания
Объект NameSpace является корнем всех папок для заданного пространства имен.
Пример
В этом примере Visual Basic для приложений (VBA) используется метод Folders.Add для добавления новой папки с именем "Мои личные контакты" в папку Контактов по умолчанию.
Sub CreatePersonalContacts()
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myFolder.Folders.Add("My Personal Contacts")
End Sub
В этом примере VBA используется метод Folders.Add для добавления двух новых папок в папку Tasks . Первая папка , "Папка моих заметок", будет содержать элементы заметок. Вторая папка, "Папка моих контактов", будет содержать элементы контактов. Если папки уже существуют, пользователю будет отправлено сообщение.
Sub CreateFolders()
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNotesFolder As Outlook.Folder
Dim myContactFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks)
On Error GoTo ErrorHandler
Set myNotesFolder = _
myFolder.Folders.Add("My Notes Folder", olFolderNotes)
Set myContactFolder = _
myFolder.Folders.Add("My Contacts Folder", olFolderContacts)
Exit Sub
ErrorHandler:
MsgBox "Error creating the folder. The folder may already exist."
Resume Next
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.