Compartir a través de

Eliminar todos los elementos y subcarpetas de la carpeta Elementos eliminados

  • Artículo

Este tema muestra un ejemplo de código en Visual Basic para Aplicaciones (VBA) que elimina todos los elementos y las subcarpetas de la carpeta Elementos eliminados.

Nota Al eliminar elementos o carpetas de una colección, debe usar un contador de bucles decremento. Si se usa un contador de bucle en incremento, se producirá un error.

Solamente puede vaciar la carpeta Elementos eliminados, pero no puede quitar la carpeta en sí. No obstante, para eliminar las subcarpetas de dicha carpeta, simplemente debe eliminar la subcarpeta sin necesidad de eliminar su contenido antes.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.