¿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 en el capítulo respecto a la 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.
Kutools for Outlook , Incluye 100+ 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:
Después de la búsqueda, haga clic derecho en el resultado que desea abrir su carpeta, seleccione Carpeta abierta desde el menú contextual.
Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.
- Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
- Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
- Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
- Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
- Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.





