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

Si vous souhaitez consulter les e-mails restés sans réponse dans Outlook, les rechercher un par un serait extrêmement chronophage. Dans cet article, je vous explique comment créer un dossier de recherche regroupant tous vos messages sans réponse.

Créer un dossier de recherche pour tous les e-mails sans réponse dans Outlook à l’aide d’un code VBA

---

Créer un dossier de recherche pour tous les e-mails sans réponse dans Outlook à l’aide d’un code VBA

Le code VBA suivant vous permet de créer un dossier de recherche regroupant tous les e-mails restés sans réponse. Voici la marche à suivre :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre Module.

Code VBA : Créer 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. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche alors, comme illustré dans la capture d’écran suivante :

4. Cliquez sur le bouton OK, et un dossier intitulé E-mails sans réponse apparaîtra désormais sous Dossiers de recherche pour chaque compte configuré dans Outlook. Tous les e-mails sans réponse y sont affichés, comme le montre la capture d’écran suivante :