¿Cómo crear una carpeta de búsqueda que muestre todos los correos electrónicos sin responder en Outlook?

Si desea revisar los correos electrónicos sin responder en su Outlook, buscarlos uno por uno le llevará mucho tiempo. En este artículo le explicaré cómo crear una carpeta de búsqueda que reúna todos los mensajes sin responder.

Crear una carpeta de búsqueda para todos los correos electrónicos sin responder en Outlook con código VBA

---

Crear una carpeta de búsqueda para todos los correos electrónicos sin responder en Outlook con código VBA

El siguiente código VBA le permite crear una carpeta de búsqueda que incluya todos los correos electrónicos sin responder. Siga estos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Crear una carpeta de búsqueda para correos electrónicos sin responder:

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. A continuación, pulse la tecla F5 para ejecutar este código y aparecerá un cuadro de diálogo como se muestra en la siguiente captura de pantalla:

4. Haga clic en el botón Aceptar y obtendrá una carpeta llamada Correos no respondidos dentro de Carpetas de búsqueda para cada cuenta de su Outlook, donde se mostrarán todos los correos electrónicos sin responder. Vea la captura de pantalla: