Outlook) (Folder.Folders 屬性
會傳回 Folders 集合,代表指定之 Folder中包含的所有資料夾。 唯讀。
語法
expression。 Folders
表達 代表 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。