¿Cómo ir rápidamente y abrir la carpeta de resultados de búsqueda en Outlook?

En Outlook, puede buscar correos electrónicos según el texto específico con la función de búsqueda. Pero, si está buscando en todos los elementos de Outlook, no podrá encontrar rápidamente la carpeta del resultado de la búsqueda. En este caso, aquí tengo algunos trucos que pueden ayudarlo a ir rápidamente y abrir la carpeta del resultado de la búsqueda.

Vaya y abra la carpeta de resultados de búsqueda con VBA

Vaya y abra la carpeta de resultados de búsqueda con el botón derecho del ratón

Vaya y abra la carpeta de resultados de búsqueda con VBA

En Outlook, no hay una función incorporada que pueda manejar este trabajo, excepto el código VBA.

Antes de usar el código VBA, debe mostrar el nombre de la carpeta en los resultados de la búsqueda.

1. Hacer clic en Ver > Agregar columnas.

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

3. Hacer clic en Añada añadir En carpetas a Muestre estas columnas en este orden lista, luego haga clic en Ascender botón para mover En carpeta a la parte superior.

4. Hacer clic en OK para cerrar el diálogo. Ahora, mientras busca correos electrónicos, el nombre de la carpeta se mostrará en los resultados de la búsqueda.

5. Ahora presione Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo para crear un nuevo módulo.

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

VBA: vaya a la carpeta por un 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. Prensa F5 para habilitar el código, ahora ingrese el nombre de la carpeta a la que desea ir en el cuadro de diálogo.

8. Hacer clic en OK, aparece un cuadro de diálogo para recordarle la ubicación de la carpeta, haga clic en Sí para ir directamente a la carpeta o haga clic en No cancelar.

Vaya y abra la carpeta de resultados de búsqueda con el botón derecho del ratón

Si tiene Kutools para Outlook, habrá un Carpeta abierta utilidad incrustada en el menú contextual que puede ir rápidamente a la carpeta del correo electrónico seleccionado.

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

Después de la búsqueda, haga clic derecho en el resultado que desea abrir su carpeta, seleccione Carpeta abierta desde el menú contextual.

---

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 profesionales: Guardar 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.

Leer Mas       Descargar gratis      Comprar