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

Por ejemplo, ha creado muchas carpetas de correo electrónico en Outlook y, cuando necesita abrir una carpeta personal específica, debe expandir varias carpetas hasta dar con la deseada. Resulta molesto tener que abrir múltiples carpetas una por una solo para acceder a una en concreto. Sin embargo, si recuerda el nombre de la carpeta, todo será mucho más sencillo. En este tutorial le ofrecemos un método para encontrar una carpeta por su nombre en Outlook, evitando así tener que expandir carpetas una a una hasta localizarla.

Buscar carpeta por nombre en Outlook con código VBA

Buscar carpeta por nombre en todas las cuentas de Outlook mediante Kutools para Outlook

---

Buscar carpeta por nombre en Outlook con código VBA

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

Nota: Recuerde el nombre de la carpeta para poder utilizar este código VBA.

1. Pulse las teclas Alt + F11 del teclado para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haga doble clic en Project1 > Objeto de Microsoft Outlook > ThisOutlookSession para abrir la ventana de Project1 – ThisOutlookSession. Vea la 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. A continuación, pulse la tecla F5 del teclado para ejecutar el código VBA.

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

6. En el cuadro de diálogo emergente Buscar carpeta, escriba el nombre de la carpeta en el cuadro de texto y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:

7. A continuación, aparecerá un cuadro de diálogo de Microsoft Outlook que muestra la ruta de la carpeta deseada; haga clic entonces en el botón Sí.

8. Entonces, se abrirá de inmediato la carpeta de correo electrónico especificada.

Nota: Este código VBA es compatible con Outlook 2007, 2010 y 2013.

---

Buscar carpeta por nombre en todas las cuentas de Outlook mediante Kutools para Outlook

Si no domina el uso de VBA, puede probar la utilidad Kutools para Outlook de Ir a, que le permite buscar y encontrar carpetas por nombre o caracteres específicos, y acceder directamente a ellas.

Instale gratuitamenteKutools para Outlook y siga los pasos que se indican a continuación:

1. Haga clic en KUTOOLS PLUS > Carpeta > Ir a.

2. En el cuadro de diálogo Ir a, escriba el nombre de la carpeta o los caracteres específicos en la barra de búsqueda; a continuación, se mostrarán las carpetas relacionadas.

3. Haga doble clic en el nombre de la carpeta a la que desea ir y abrir; esta se abrirá automáticamente.

  Demostración