Outlook) (Folder.Folders 属性

  • 项目

返回 文件夹 表示指定的 文件夹 中包含的所有文件夹的集合。 此为只读属性。

语法

expression。 Folders

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

备注

命名空间 对象是给定命名空间的所有文件夹的根目录。

示例

此 Visual Basic for Applications (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 在 任务文件夹中添加两个新文件夹的方法。 第一个文件夹是"我的笔记文件夹"将包含便笺项目。 第二个文件夹，"我的联系人文件夹"将包含联系人项目。 如果这些文件夹已经存在，消息框将通知用户。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。