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