¿Cómo buscar una carpeta por nombre en Outlook?
Por ejemplo, has creado muchas carpetas de correo electrónico en Outlook, y cuando necesitas abrir una carpeta personal específica, tienes que expandir múltiples carpetas hasta que aparece la carpeta deseada. Es tedioso expandir varias carpetas una por una solo para abrir una carpeta personal específica. En realidad, si recuerdas el nombre de la carpeta, todo será más fácil. En este tutorial, te proporcionaremos un método para encontrar una carpeta por su nombre en Outlook en lugar de expandir carpetas una por una para localizarla.
Buscar una carpeta por nombre en Outlook con código VBA
Buscar carpeta por nombre en cuentas de Outlook con Kutools para Outlook
Buscar una carpeta por nombre en Outlook con código VBA
Con el siguiente código VBA, puedes encontrar fácilmente una carpeta específica por su nombre.
Nota: Necesitas recordar el nombre de la carpeta para poder usar este código VBA.
1. Presiona las teclas Alt + F11 en el teclado para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego haz doble clic en Proyecto1 > Objeto de Microsoft Outlook > EstaSesiónOutlook para abrir la ventana Proyecto1 – EstaSesiónOutlook. Ver captura de pantalla:
3. Copia y pega el siguiente código VBA en la ventana Proyecto1 – EstaSesiónOutlook.
VBA: buscar carpeta por nombre
Sub FindFolderByName()
Dim Name As String
Dim FoundFolder As Folder
Name = InputBox("Find Name:", "Search Folder")
If Len(Trim$(Name)) = 0 Then Exit Sub
Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
If Not FoundFouder Is Nothing Then
If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = FoundFouder
End If
Else
MsgBox "Not Found", vbInformation
End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
Dim SubFolder As Outlook.MAPIFolder
On Error Resume Next
Set FindInFolders = Nothing
For Each SubFolder In TheFolders
If LCase(SubFolder.Name) Like LCase(Name) Then
Set FindInFolders = SubFolder
Exit For
Else
Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
If Not FindInFolders Is Nothing Then Exit For
End If
Next
End Function
4. Luego presiona la tecla F5 en el teclado para ejecutar el código VBA.
5. En el cuadro de diálogo Macros, haz clic en el botón Ejecutar.
6. En el cuadro de diálogo Buscar Carpeta que aparece, escribe el nombre de la carpeta en el cuadro de texto y luego haz clic en el botón Aceptar. Ver captura de pantalla:
7. Luego aparecerá un cuadro de diálogo de Microsoft Outlook, mostrando la ruta de tu carpeta deseada, y luego haz clic en el botón Sí.
8. Entonces, la carpeta de correo especificada se abrirá inmediatamente.
Nota: Este código VBA se puede aplicar a Outlook 2007, 2010 y 2013.
Buscar carpeta por nombre en cuentas de Outlook con Kutools para Outlook
Si no eres bueno en VBA, puedes probar la utilidad Ir A de Kutools para Outlook, que puede encontrar y buscar carpetas por nombre o caracteres específicos, y luego ir directamente a la carpeta.
Instala gratis Kutools para Outlook, y luego sigue los siguientes pasos:
1. Haz clic en Kutools Plus > Carpeta > Ir A.
2. En el cuadro de diálogo Ir A, escribe el nombre de la carpeta o caracteres específicos en la barra de búsqueda, entonces se mostrarán las carpetas relacionadas.
3. Haz doble clic en el nombre de la carpeta a la que deseas ir y abrirla, y la carpeta se abrirá.
Demostración
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!
📧 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...
