共用方式為

Folders.Add 方法 (Outlook)

  • 發行項

在 Folders 集合中建立新資料夾。

語法

運算式。新增 (名稱、 類型)

表達 代表 Folders 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
Name 必要 字串 新資料夾的顯示名稱。
類型 選用 Long 新資料夾的 Outlook 資料夾類型。 如果沒有指定資料夾類型，新資料夾預設會和其建立位置的資料夾使用相同的類型。 可以是下列其中一個 OlDefaultFolders 常數： olFolderCalendar、 olFolderContacts、 olFolderDrafts、 olFolderInbox、 olFolderJournal、 olFolderNotes或 olFolderTasks。 olFolderConflicts, olFolderDeletedItems、olFolderJunk、olFolderLocalFailures、olFolderManagedEmail、olFolderOutbox、olFolderRssSubscriptions、olFolderSentMail、olFolderServerFailures、olFolderSyncIssues、olFolderToDo 和 olPublicFoldersAllPublicFolders 常數不能指定給這個引數。

傳回值

代表新資料夾的 Folder 物件。

範例

此 VBA 範例會使用 Add 方法，將名為 「My Contacts」 的新資料夾新增至目前 (預設) [連絡人] 資料夾。

Sub AddContactsFolder() 
 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 Contacts") 
End Sub

此 VBA 範例會使用 Add 方法，在 Tasks 資料夾中新增三個新資料夾。 第一個資料夾 Notes 資料夾將包含記事專案。 第二個資料夾 [連絡人資料夾] 將包含連絡人項目。 第三個資料夾公用資料夾將會是公用資料夾。 如果這些資料夾已經存在，則會以訊息方塊通知使用者。

Sub AddFolders() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNotesFolder As Outlook.Folder 
 Dim myContactsFolder As Outlook.Folder 
 Dim myPublicFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks) 
 On Error GoTo ErrorHandler 
 Set myNotesFolder = myFolder.Folders.Add("Notes Folder", olFolderNotes) 
 Set myContactsFolder = myFolder.Folders.Add("Contacts Folder", olFolderContacts) 
 Set myPublicFolder = myFolder.Folders.Add("Public Folder", olPublicFoldersAllPublicFolders) 
 Exit Sub 
ErrorHandler: 
 MsgBox "This folder already exists!" 
 Resume Next 
End Sub

另請參閱

Folders 物件

支援和意見反應

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