Folders.Add-Methode (Outlook)

Erstellt einen neuen Ordner in der Folders-Auflistung .

Syntax

Ausdruck. Hinzufügen (Name, Typ)

Ausdruck: Eine Variable, die ein Folders-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Name	Erforderlich	String	Der Anzeigename für den neuen Ordner.
Typ	Optional	Long	Der Outlook-Ordnertyp des neuen Ordners. Wenn kein Ordnertyp angegeben wird, verwendet der neue Ordner standardmäßig denselben Typ wie der Ordner, in dem er erstellt wurde. Kann eine der folgenden OlDefaultFolders-Konstanten sein: olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes oder olFolderTasks. Die Konstanten olFolderConflicts, olFolderDeletedItems, olFolderJunk, olFolderLocalFailures, olFolderManagedEmail, olFolderOutbox, olFolderRssSubscriptions, olFolderSentMail und olFolderServerFailures, olFolderSyncIssues, olFolderToDo und olPublicFoldersAllPublicFolders können für dieses Argument nicht angegeben werden.

Rückgabewert

Ein Folder-Objekt , das den neuen Ordner darstellt.

Beispiel

In diesem VBA-Beispiel wird die Add-Methode verwendet, um den neuen Ordner mit dem Namen "My Contacts" dem aktuellen (Standard-)Ordner "Contacts" hinzuzufügen.

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

In diesem VBA-Beispiel wird die Add-Methode verwendet, um drei neue Ordner im Ordner Tasks hinzuzufügen. Der erste Ordner, Notizenordner, enthält Notizenelemente. Der zweite Ordner, Kontakteordner, enthält Kontaktelemente. Der dritte Ordner, Öffentlicher Ordner, ist ein öffentlicher Ordner. Wenn die Ordner bereits vorhanden sind, wird der Benutzer in einem Meldungsfeld drüber informiert.

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

Siehe auch

Folders-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.