¿Cómo encontrar una carpeta (ruta completa de la carpeta) por el nombre de la carpeta en Outlook?
Por ejemplo, en el panel de navegación, mueves una carpeta y la colocas accidentalmente en una carpeta desconocida en Outlook. Quieres restaurar esta carpeta pero no puedes encontrarla de inmediato. Desafortunadamente, Outlook no soporta la función "Buscar" como lo hace Microsoft Word o Excel. ¡No te preocupes! Puedes aplicar una macro VBA para resolver este problema en Outlook.
- Encontrar carpeta (ruta completa de la carpeta) por el nombre de la carpeta con VBA
- Buscar carpeta por nombre de carpeta con una herramienta increíble
Encontrar carpeta (ruta completa de la carpeta) por el nombre de la carpeta con VBA
Por favor, sigue los siguientes pasos para buscar carpetas por nombres de carpeta con VBA en Outlook.
1. Presiona las teclas "Alt" + "F11" juntas para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
2. Haz clic en "Insertar" > "Módulo", y luego pega el siguiente código VBA en la nueva ventana de Módulo.
VBA: Buscar y abrir carpetas por nombre de carpeta en Outlook
Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean
Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True
Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders
Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False
sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName
m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))
Set oFolders = Application.Session.Folders
LoopFolders oFolders
If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub
Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean
If SpeedUp = False Then DoEvents
For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If
If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub
3. Presiona la tecla "F5" o haz clic en el botón "Ejecutar" para ejecutar esta VBA.
4. En el cuadro de diálogo emergente "Buscar carpeta", escribe el nombre de la carpeta específica que deseas buscar y haz clic en el botón "Aceptar".
Nota: Esta VBA soporta comodines asterisco. Por ejemplo, puedes escribir tes* para encontrar todas las carpetas cuyo nombre comience con tes.
5. Ahora aparece un cuadro de diálogo que muestra la ruta de la carpeta encontrada. Si necesitas abrir la carpeta encontrada, haz clic en el botón "Sí".
Y ahora la carpeta encontrada se está abriendo en el panel de navegación como se muestra en la siguiente captura de pantalla:
Nota: Si hay más de una carpeta nombrada con el mismo nombre especificado, esta VBA solo puede encontrar y abrir una carpeta.
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!
Buscar carpeta por nombre de carpeta con una herramienta increíble
Si tienes "Kutools para Outlook" instalado, puedes aplicar su función "Abrir carpeta" para encontrar rápidamente todas las carpetas por un cierto nombre de carpeta, y también abrir fácilmente cualquiera de las carpetas encontradas.
¡Desbloquea la máxima eficiencia en el correo electrónico con Kutools para Outlook! Accede a 70 funciones poderosas completamente gratis, para siempre. ¡Descarga la versión gratuita ahora!
1. Haz clic en "Kutools Plus" > "Abrir carpeta" para habilitar esta función.
2. En el cuadro de diálogo "Abrir carpeta", escribe el nombre de la carpeta específica en el cuadro "Buscar", selecciona una carpeta en los resultados de búsqueda y haz clic en el botón "Aceptar".
Ahora la carpeta especificada con el nombre de carpeta específico se encuentra y abre inmediatamente.
Artículos relacionados:
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...

