Метод Folders.Add (Outlook)

Статья
04/07/2023

Создает папку в коллекции Папки .

Синтаксис

expression. Add (Name, Type)

Выражение Переменная, представляющая объект Folders .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Отображаемое имя новой папки.
Type	Необязательный	Long	Тип папки Outlook для новой папки. Если тип папки не указан, новая папка по умолчанию будет использовать тот же тип, что и папка, в которой она создана. Может быть одной из следующих констант OlDefaultFolders : olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes или olFolderTasks. Константы olFolderConflicts, для этого аргумента нельзя указать olFolderDeletedItems, olFolderJunk, olFolderLocalFailures, olFolderManagedEmail, olFolderOutbox, olFolderRssSubscriptions, olFolderSentMail, olFolderServerFailures, olFolderSyncIssues, olFolderToDo и olPublicFoldersAllPublicFolders.

Возвращаемое значение

Объект Folder , представляющий новую папку.

Пример

В этом примере VBA используется метод Add для добавления новой папки с именем "Мои контакты" в текущую папку контактов (по умолчанию).

Sub AddContactsFolder() 
 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 Contacts") 
End Sub

В этом примере VBA метод Add используется для добавления трех новых папок в папку Tasks. Первая папка, Папка заметок, будет содержать элементы заметок. Вторая папка, Папка контактов, будет содержать элементы контактов. Третья папка, Общедоступная папка, будет общедоступной папкой. Если папки уже существуют, пользователю будет отправлено сообщение.

Sub AddFolders() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNotesFolder As Outlook.Folder 
 Dim myContactsFolder As Outlook.Folder 
 Dim myPublicFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks) 
 On Error GoTo ErrorHandler 
 Set myNotesFolder = myFolder.Folders.Add("Notes Folder", olFolderNotes) 
 Set myContactsFolder = myFolder.Folders.Add("Contacts Folder", olFolderContacts) 
 Set myPublicFolder = myFolder.Folders.Add("Public Folder", olPublicFoldersAllPublicFolders) 
 Exit Sub 
ErrorHandler: 
 MsgBox "This folder already exists!" 
 Resume Next 
End Sub

См. также

Объект Folders

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

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

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