¿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

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: