Comment créer un dossier de recherche pour tous les e-mails sans réponse dans Outlook?

Si vous souhaitez vérifier les e-mails sans réponse dans votre Outlook, les rechercher un par un prendra beaucoup de temps. Cet article, je vais parler de la création d'un dossier de recherche pour tous les messages sans réponse.

Créez un dossier de recherche pour tous les e-mails sans réponse dans Outlook avec le code VBA

Créez un dossier de recherche pour tous les e-mails sans réponse dans Outlook avec le code VBA

Le code VBA suivant peut vous aider à créer un dossier de recherche dans lequel placeront tous les e-mails non répondus, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

Code VBA: créez un dossier de recherche pour les e-mails sans réponse:

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. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue apparaît comme la capture d'écran suivante:

4Cliquez sur OK bouton, maintenant, vous obtiendrez un E-mails non répondus dossier sous le Dossiers de recherche pour chaque compte dans votre Outlook, et tous les e-mails non répondus sont affichés ici, voir capture d'écran: