Store.GetRootFolder-Methode (Outlook)

  • Artikel

Es wird ein Folder -Objekt zurückgegeben, das den Stammordner des Store -Objekts darstellt. Schreibgeschützt.

Syntax

Ausdruck. GetRootFolder

Ausdruck Eine Variable, die ein Store-Objekt darstellt.

Rückgabewert

Ein Folder -Objekt, das den Ordner im Stamm dieses Store darstellt.

HinwBemerkungeneise

Verwenden Sie die GetRootFolder-Methode , um die Unterordner des Stammordners des Store aufzulisten. Im Gegensatz zu NameSpace.Folders, die alle Ordner für alle Speicher im aktuellen Profil enthält, können mit Store.GetRootFolder.Folders alle Ordner für ein angegebenes Store -Objekt im aktuellen Profil aufzählen.

Durch die Parent -Eigenschaft des Stammordners eines Speichers wird die Zeichenfolge "Mapi" zurückgegeben.

Der Stammordner für den öffentlichen Exchange-Ordnerspeicher ist der Ordner Öffentliche Ordner. Dieser Ordner wird durch den Aufruf Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders)von zurückgegeben.

GetRootFolder wird ein Fehler zurückgegeben, wenn der Dienstanbieter Stammordner nicht unterstützt.

Beispiel

Im folgenden Codebeispiel in Microsoft Visual Basic für Applikationen (VBA) beginnt mit der Stammordner jedes Speichers in einer Auflistung speichert für eine Sitzung, und es werden alle Ordner in allen Speichern für diese Sitzung aufgezählt.

Sub EnumerateFoldersInStores() 
 
 Dim colStores As Outlook.Stores 
 
 Dim oStore As Outlook.Store 
 
 Dim oRoot As Outlook.Folder 
 
 
 
 On Error Resume Next 
 
 Set colStores = Application.Session.Stores 
 
 For Each oStore In colStores 
 
 Set oRoot = oStore.GetRootFolder 
 
 Debug.Print (oRoot.FolderPath) 
 
 EnumerateFolders oRoot 
 
 Next 
 
End Sub 
 
 
 
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder) 
 
 Dim folders As Outlook.folders 
 
 Dim Folder As Outlook.Folder 
 
 Dim foldercount As Integer 
 
 
 
 On Error Resume Next 
 
 Set folders = oFolder.folders 
 
 foldercount = folders.Count 
 
 'Check if there are any folders below oFolder 
 
 If foldercount Then 
 
 For Each Folder In folders 
 
 Debug.Print (Folder.FolderPath) 
 
 EnumerateFolders Folder 
 
 Next 
 
 End If 
 
End Sub

Siehe auch

Store-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.