Поделиться через


Свойство 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

См. также

Folder Object

Элементы объекта папки

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.