¿Cuál es la forma más eficaz de borrar todo el contenido de una subcarpeta en Outlook?

Question

Outlook 2010 (32 bits) Windows 7 (64 bits)

Tengo un sistema con Outlook 2010 (modo en caché no habilitado) y algunas de las subcarpetas debajo de la bandeja de entrada del usuario se han hinchado significativamente (contienen más de 50000 mensajes). Me gustaría borrarlos de la manera más eficiente posible (conservando al mismo tiempo el nombre/lugar del directorio).

Si hago clic derecho en la carpeta y selecciono "Eliminar todo", aparece un mensaje que me pregunta si estoy seguro de que quiero mover todos los elementos de esta carpeta a la carpeta Elementos eliminados. Cuando hago clic en Sí, veo una barra de progreso "preparándose para eliminar"... y cuando llega al final, no pasa nada. La barra de progreso se cierra correctamente pero los mensajes todavía están en el directorio.

¿Existe una forma alternativa de hacer esto?

Answer 1

Eliminar todosmueve sólo los elementos que residen en la carpeta seleccionada (excluyendo las subcarpetas). Para lograr el resultado deseado necesitarás escribir un script VBA como este:

Private Sub CleanSubfolders(ByVal Folder As Folder)
    For i = Folder.Items.Count To 1 Step -1
        Folder.Items(i).Delete
    Next
    For Each Folder In Folder.Folders
        CleanSubfolders Folder
    Next
End Sub

Sub CleanFolders()
    Set Folder = Session.PickFolder()
    If Not Folder Is Nothing Then
        CleanSubfolders Folder
    End If
End Sub

ejecutando elCarpetas limpiasLa macro eliminará efectivamente todos los elementos de la carpeta seleccionada, incluidas todas sus subcarpetas.

Answer 2

Me gusta más la respuesta de @thims ya que realiza específicamente una tarea idéntica a la que estaba tratando de hacer. Dicho esto, recientemente noté que al eliminar mensajes permanentemente también se borra la carpeta.

Para hacer esto, mantenga presionada la SHIFTtecla mientras hace clic derecho en la carpeta y seleccione Delete All. Esta vez, el usuario recibirá un mensaje que le preguntará si desea eliminar permanentemente todos los mensajes (en lugar de pasar a la papelera de reciclaje). Esto funciona, así que sospecho que el problema subyacente aquí es un error de Outlook que mueve cantidades masivas de mensajes entre carpetas.