Folders 属性

返回 Folders 集合，代表指定文件夹或命名域中所包含的全部文件夹。NameSpace 对象是给定命名域的所有文件夹的根。

expression  必选。该表达式返回 MAPIFolder 对象或 NameSpace 对象。

示例

本 Visual Basic for Applications 示例使用 Add 方法将名为“My Contacts”的文件夹添至当前（默认的）“联系人”文件夹中。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myFolder.Folders.Add("My Contacts")

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(10)
Set myNewFolder = myFolder.Folders.Add("My Contacts")

本 Visual Basic for Applications 示例使用 Add 方法在“任务”文件夹中添加两个新文件夹。第一个文件夹“Notes Folder”中包含便笺项目，第二个文件夹“Contacts Folder”中包含联系人项目。如果这两个文件夹已经存在，将出现一信息框通知用户。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks)
On Error GoTo ErrorHandler
Set myNotesFolder = myFolder.Folders.Add ("Notes Folder", olFolderNotes)
On Error GoTo ErrorHandler
Set myContactFolder = myFolder.Folders.Add ("Contacts Folder", olFolderContacts)
Exit Sub
ErrorHandler:
    MsgBox "This folder already exists!"