Folder.Folders-Eigenschaft (Outlook)
Gibt die Folders-Auflistung zurück, die alle Ordner darstellt, die im angegebenen Ordner enthalten sind. Schreibgeschützt.
Syntax
Ausdruck. Folders
Ausdruck Eine Variable, die ein Folder-Objekt darstellt.
Hinweise
Das NameSpace-Objekt ist der Stamm aller Ordner für den angegebenen Namensraum.
Beispiel
In diesem beispiel für Visual Basic for Applications (VBA) wird die Folders.Add-Methode verwendet, um den neuen Ordner "Meine persönlichen Kontakte" dem Standardordner Kontakte hinzuzufügen.
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
In diesem VBA-Beispiel wird die Folders.Add-Methode verwendet, um zwei neue Ordner im Ordner Tasks hinzuzufügen. Der erste Ordner, "My Notes Folder" (Meine Notizen), enthält Notizelemente. Der zweite Ordner, "My Contacts Folder" (Meine Kontakte), enthält Kontaktelemente. Wenn die Ordner bereits vorhanden sind, wird der Benutzer in einem Meldungsfeld drüber informiert.
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
Siehe auch
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.