¿Cómo crear una carpeta de búsqueda para todos los correos electrónicos no respondidos en Outlook?
Si desea verificar los correos electrónicos no respondidos en su Outlook, buscarlos uno por uno llevará mucho tiempo. En este artículo, hablaré sobre la creación de una carpeta de búsqueda para todos los mensajes no respondidos.
Cree una carpeta de búsqueda para todos los correos electrónicos no respondidos en Outlook con código VBA
El siguiente código VBA puede ayudarlo a crear una carpeta de búsqueda donde se colocarán todos los correos electrónicos no respondidos, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.
Código VBA: cree una carpeta de búsqueda para correos electrónicos no respondidos:
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim xSearch As Outlook.Search
Dim xScope As String, xFilter As String
Dim xRepliedProperty As String
Dim xFolder As Folder, xSubFolder As Folder
On Error Resume Next
xScope = ""
For Each xFolder In Outlook.Application.Session.Folders
Set xSubFolder = xFolder.Folders("Inbox")
xScope = "'" + xSubFolder.FolderPath + "'"
xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
Set xSearch = Nothing
Set xSubFolder = Nothing
Next
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente como se muestra en la siguiente captura de pantalla:
4. Hacer clic OK botón, ahora, obtendrá un Correos electrónicos no respondidos carpeta debajo del Carpetas de búsqueda para cada cuenta en su Outlook, y todos los correos electrónicos no respondidos se muestran aquí, vea la captura de pantalla:
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.

