Folders.Add 方法 (Outlook)
在 Folders 集合中创建一个新文件夹。
语法
表达式。添加 (名称、 键入)
表达 一个代表 Folders 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 必需 | String | 新文件夹的显示名称。 |
| Type | 可选 | Long | Outlook 文件夹新文件夹类型。 如果未指定文件夹类型，则将默认新文件夹与创建它的文件夹类型相同。 可以是下列 文件夹 常量之一: 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方法在任务文件夹中添加三个新文件夹。 第一个文件夹“便笺文件夹”将包含笔记项。 第二个文件夹“联系人文件夹”将包含联系人项目。 第三个文件夹“公用文件夹”将是公用文件夹。 如果这些文件夹已经存在，消息框将通知用户。
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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。