共用方式為


Outlook) (Folder.Folders 屬性

會傳回 Folders 集合,代表指定之 Folder中包含的所有資料夾。 唯讀。

語法

expressionFolders

表達 代表 Folder 物件的 變數。

註解

NameSpace物件是指定名稱空間之所有資料夾的根目錄。

範例

這個 Visual Basic for Applications (VBA) 範例會使用 Folders.Add 方法,將名為 「My Personal Contacts」 的新資料夾新增至預設 [ 連絡人 ] 資料夾。

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方法,在 Tasks 資料夾中新增兩個新資料夾。 第一個資料夾 "My Notes Folder" 會包含記事項目。 第二個資料夾 "My Contacts Folder" 會包含連絡人項目。 如果這些資料夾已經存在,則會以訊息方塊通知使用者。

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

另請參閱

Folder 物件

Folder 物件成員

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應