Freigeben über


Löschen aller Elemente und Unterordner im Ordner „Gelöschte Elemente“

In diesem Thema wird ein Codebeispiel in Visual Basic for Applications (VBA) aufgezeigt, in dem alle Elemente und Unterordner im Ordner "Gelöschte Elemente" gelöscht werden.

Hinweis Wenn Sie Elemente oder Ordner aus einer Sammlung löschen, müssen Sie einen dekrementierenden Schleifenzähler verwenden. Ein erhöhender Schleifenzähler verursacht einen Fehler.

Sie können den Ordner "Gelöschte Elemente" nur leeren, den Ordner selbst jedoch nicht entfernen. Unterordner aus dem Ordner "Gelöschte Elemente" können Sie jedoch auch so löschen, ohne vorher die Inhalte löschen zu müssen.

Sub RemoveAllItemsAndFoldersInDeletedItems() 
 Dim oDeletedItems As Outlook.Folder 
 Dim oFolders As Outlook.Folders 
 Dim oItems As Outlook.Items 
 Dim i As Long 
 'Obtain a reference to deleted items folder 
 Set oDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems) 
 Set oItems = oDeletedItems.Items 
 For i = oItems.Count To 1 Step -1 
 oItems.Item(i).Delete 
 Next 
 Set oFolders = oDeletedItems.Folders 
 For i = oFolders.Count To 1 Step -1 
 oFolders.Item(i).Delete 
 Next 
End Sub

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.