Folders.Add 方法 (Outlook)

Folders 集合中创建一个新文件夹。

语法

表达式添加 (名称键入)

表达 一个代表 Folders 对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 必需 String 新文件夹的显示名称。
Type 可选 Long Outlook 文件夹新文件夹类型。 如果未指定文件夹类型,则将默认新文件夹与创建它的文件夹类型相同。 可以是下列 文件夹 常量之一: olFolderCalendarolFolderContactsolFolderDraftsolFolderInboxolFolderJournalolFolderNotesolFolderTasks 。 不能为此参数指定常量 olFolderConflictsolFolderDeletedItemsolFolderJunkolFolderLocalFailuresolFolderManagedEmailolFolderOutboxolFolderRssSubscriptionsolFolderSentMailolFolderServerFailuresolFolderSyncIssuesolFolderToDoolPublicFoldersAllPublicFolders

返回值

一个代表该新文件夹的 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。