Saltar al contenido principal

¿Cómo encontrar una carpeta por nombre en Outlook?

Por ejemplo, ha creado muchas carpetas de correo electrónico en Outlook, cuando es necesario abrir una carpeta personal específica, debe expandir varias carpetas hasta que aparezca esa carpeta especificada. Es problemático expandir varias carpetas una por una solo para abrir una carpeta personal específica. En realidad, si recuerda el nombre de la carpeta, todo se volverá fácil. En este tutorial, le proporcionaremos un método para buscar carpetas por su nombre en Outlook en lugar de expandir carpetas una por una para encontrar la carpeta.

Buscar carpeta por nombre en Outlook con código VBA

Buscar carpeta por nombre en todas las cuentas en Outlook por Kutools para Outlookbuena idea3


flecha azul burbuja derecha Buscar carpeta por nombre en Outlook con código VBA

Con el siguiente código VBA, puede encontrar fácilmente una carpeta específica por su nombre.

Note: Debe recordar el nombre de la carpeta para usar este código VBA.

1. presione el otro + F11 teclas en el teclado para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Luego haga doble clic en el Proyecto1 > Objeto de Microsoft Outlook > Esta sesión de Outlook para abrir el Proyecto1 - ThisOutlookSession ventana. Ver captura de pantalla:

3. Copie y pegue el siguiente código VBA en la ventana Project1 - ThisOutlookSession.

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 presione F5 Tecla en el teclado para ejecutar el código VBA.

5. En el Macros cuadro de diálogo, haga clic en Ejecutar del botón.

6. En la aparición Carpeta de búsqueda cuadro de diálogo, escriba el nombre de la carpeta en el cuadro de texto, luego haga clic en el OK botón. Ver captura de pantalla:

7. Entonces un microsoft Outlook Aparece el cuadro de diálogo, muestra la ruta de la carpeta deseada y luego haga clic en el del botón.

8. Luego, la carpeta de correo electrónico especificada se abrirá inmediatamente.

Note: Este código VBA se puede aplicar a Outlook 2007, 2010 y 2013.


flecha azul burbuja derecha Buscar carpeta por nombre en todas las cuentas en Outlook por Kutools para Outlook

Si no eres bueno en VBA, puedes intentar Kutools para Outlook's Para ir utilidad, que puede encontrar y buscar carpeta con nombre o carácter específico, luego ir directamente a la carpeta

Kutools for Outlook , Incluye potentes funciones y herramientas para Microsoft Outlook 2016, 2013, 2010 y Office 365.

Instalación gratuita Kutools para Outlook, y luego siga los pasos a continuación:

1. Hacer clic en Kutools Más > Para ir.
doc buscar carpeta por nombre 5

2. En el Para ir cuadro de diálogo, escriba el nombre de la carpeta o caracteres específicos en la barra de búsqueda, luego se enumeran las carpetas relativas.
doc buscar carpeta por nombre 6

3. Haga doble clic en el nombre de la carpeta a la que desea ir y abrir, luego la carpeta está abierta.
doc buscar carpeta por nombre 7


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, 6 years later but have same issues as raised by the others. I once had this code but sadly lost it. Any ideas (i will try AI)
This comment was minimized by the moderator on the site
It looks great but I'm looking more folder with similar name....
This comment was minimized by the moderator on the site
I am currently working with Outlook 2013, and while this tool is wonderfully helpful, I'm in the same boat as Matt and Richard. I would like to be able to somehow go through multiple folders with the same name. I would also like to be able to do this: if I have multiple folders with dates, 2012,2013,2014 for example, I would like to be able to put in 20* or 20?? and then be prompted to view any of the aforementioned folders, instead of just defaulting to the first one it finds.
This comment was minimized by the moderator on the site
The line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a compile error message - User-defined type not defined
This comment was minimized by the moderator on the site
the line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a Compile error message: User-defined type not defined
This comment was minimized by the moderator on the site
Just like Matt wrote, I was also looking for this. The way the code operates is that it will open the first folder it finds with the name to search for. Is it possible to adjust the code so it will find multiple instances?
This comment was minimized by the moderator on the site
Is there a way to add folder iteration to the above code. Say the user has multiple folders named Employee, is it possible for it to go through a loop to find all instances and allow user to select appropriate folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations