Удаление всех элементов и вложенных папок в папке "Удаленные"

В этом разделе показан пример кода в Visual Basic для приложений (VBA), который удаляет все элементы и вложенные папки в папке "Удаленные".

Примечание При удалении элементов или папок из коллекции необходимо использовать счетчик циклов уменьшения. Счетчик циклов приращения завершится ошибкой.

Можно очистить только папку "Удаленные", а саму папку удалить нельзя. Однако для удаления вложенных папок папки "Удаленные" можно просто удалить вложенную папку, не удаляя ее содержимого.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.