¿Cómo exportar e imprimir la lista de todas las carpetas y subcarpetas en Outlook?

Author: Kelly Last Modified: 2025-06-04

Generalmente, puedes presionar las teclas "Ctrl" + "6" para ver la lista de todas las carpetas en el Panel de Navegación en Outlook. Sin embargo, no puedes imprimir directamente la lista de carpetas. Este artículo introduce dos scripts VBA para exportar e imprimir la lista de todas las carpetas y sus subcarpetas en Outlook.

Exportar e imprimir la lista de todas las carpetas y subcarpetas de Outlook en un correo nuevo
Exportar e imprimir la lista de todas las carpetas y subcarpetas de Outlook en el Bloc de Notas

Exportar e imprimir la lista de todas las carpetas y subcarpetas de Outlook en un correo nuevo

Este método introduce un script VBA para exportar la lista de todas las carpetas y subcarpetas de una cuenta de correo específica a un correo nuevo en Outlook. Luego, puedes imprimir fácilmente la lista de carpetas.

1. Presiona "Alt" + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en "Insertar" > "Módulo", y pega el siguiente código VBA en la nueva ventana del módulo.

VBA: Exportar la lista de carpetas y subcarpetas en un correo nuevo en Outlook

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.MailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

For i = CurrentFolder.Folders.Count To 1 Step -1
    Set oFolder = CurrentFolder.Folders(i)
    sFolderPaths = oFolder.FolderPath
    gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
    If oSubFolder.Name <> "Deleted Items" Then
        ProcessFolder oSubFolder
    End If
Next
End Sub

3. Presiona "F5" para ejecutar el VBA.

4. En el cuadro de diálogo Seleccionar Carpeta que aparece, selecciona la cuenta de correo cuya lista de carpetas deseas imprimir y haz clic en "Aceptar".

Select folder dialog

5. La lista de carpetas de la cuenta seleccionada se copiará en un correo nuevo como se muestra a continuación. Haz clic en "Archivo" > "Imprimir" para imprimir la lista de carpetas.

Generated email with folder list

6. Después de imprimir, cierra el correo nuevo sin guardarlo.

Exportar e imprimir la lista de todas las carpetas y subcarpetas de Outlook en el Bloc de Notas

Este método introduce un script VBA para exportar la lista de todas las carpetas y subcarpetas de una cuenta de correo específica desde Outlook al Bloc de Notas. Luego, puedes imprimir fácilmente la lista de carpetas.

1. Presiona "Alt" + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en "Insertar" > "Módulo", y luego pega el siguiente código VBA en la nueva ventana del módulo.

VBA: Exportar la lista de todas las carpetas y subcarpetas de Outlook al Bloc de Notas

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

Set objOutlook = CreateObject("Outlook.Application")
Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
    Set Folders = F.Folders
    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
    If Result = 6 Then
        gCreateTree = True
    Else
        gCreateTree = False
    End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
    gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders Folders

    Set F = Nothing
    Set Folders = Nothing
    Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F
For Each F In Folders
    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
    CreateFolderTree = Mid(OLKfolderpath, 3)
Else
    Dim i, x, OLKprefix
    i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))
    For x = gBase To i
        OLKprefix = OLKprefix & "-"
    Next
    CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. Presiona "F5" para ejecutar el VBA. En el cuadro de diálogo Seleccionar Carpeta que se abre, selecciona la cuenta de correo cuya lista de carpetas deseas exportar e imprimir, luego haz clic en "Aceptar".

Select folder dialog

4. Aparecerá el cuadro de diálogo Árbol de Carpetas de Salida. Haz clic en "Sí" o "No" dependiendo de si deseas incluir sangría en forma de árbol.

Prompt for tree creation

Ahora, se crea y guarda un archivo de texto llamado "Outlook-Folders" en tu escritorio como se muestra a continuación:

Outlook-Folders text file

5. Haz doble clic para abrir el nuevo archivo de texto, luego haz clic en "Archivo" > "Imprimir" para imprimir la lista de carpetas de Outlook exportadas.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.

Esta función admite:

Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

Respuestas inteligentes de correo electrónico
Contenido optimizado
Borradores basados en palabras clave
Extensión inteligente de contenido
Resumen de correos electrónicos
Traducción multilingüe

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!

Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar emails.

📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

Lista de funciones de Kutools para Outlook Descargar versión gratuita Actualizar a Profesional