¿Cómo acceder rápidamente a la carpeta de resultados de búsqueda y abrirla en Outlook?

En Outlook, puede buscar correos electrónicos por un texto específico mediante la función de búsqueda. Sin embargo, si realiza la búsqueda en «Todos los elementos de Outlook», no podrá identificar rápidamente la carpeta a la que pertenece cada resultado. En ese caso, aquí tiene algunos trucos para ir directamente a la carpeta del resultado de la búsqueda y abrirla.

Ir a la carpeta del resultado de búsqueda y abrirla con VBA

Ir a la carpeta del resultado de búsqueda y abrirla con el botón derecho

---

Ir a la carpeta del resultado de búsqueda y abrirla con VBA

Outlook no incluye ninguna función integrada para realizar esta tarea, a menos que se utilice código VBA.

Antes de usar el código VBA, asegúrese de mostrar la columna «Nombre de carpeta» en los resultados de la búsqueda.

1. Haga clic en Ver > Agregar varias columnas.

2. En el cuadro de diálogo Mostrar columnas, en la lista desplegable Seleccionar columnas disponibles de, seleccione Todos los campos de correo y, a continuación, elija En carpeta en la lista de Columnas disponibles.

3. Haga clic en Agregar para añadir En carpetas a la lista Mostrar estas columnas en este orden. Luego, haga clic en el botón Subir para mover En carpeta a la parte superior.

4. Haga clic en Aceptar para cerrar el cuadro de diálogo. Ahora, al buscar correos electrónicos, la columna Nombre de carpeta se mostrará en los resultados de la búsqueda.

5. Pulse ahora las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. A continuación, haga clic en Insertar > Módulo para crear un nuevo módulo.

6. Copie y pegue el siguiente código en el módulo.

VBA: Abrir carpeta de Outlook especificada por nombre

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. Pulse la tecla F5 para ejecutar el código. A continuación, introduzca el nombre de la carpeta a la que desea acceder en el cuadro de diálogo.

8. Haga clic en Aceptar; aparecerá un cuadro de diálogo que le indicará la ubicación de la carpeta. Haga clic en Sí para ir directamente a la carpeta o en No para cancelar.

---

Ir a la carpeta del resultado de búsqueda y abrirla con el botón derecho

Si dispone de Kutools para Outlook, se integrará en el menú contextual una utilidad llamada «Abrir carpeta» que le permitirá acceder rápidamente a la carpeta del correo seleccionado, incluso desde la lista de resultados de la búsqueda.

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

Tras realizar la búsqueda, haga clic con el botón derecho en el resultado cuya carpeta desee abrir y seleccione Abrir en carpeta (Kutools) en el menú contextual.