Comment accéder rapidement au dossier contenant le résultat d’une recherche dans Outlook ?

Dans Outlook, vous pouvez rechercher des e-mails à l’aide d’un texte spécifique grâce à la fonction de recherche. Toutefois, si vous effectuez une recherche via Tous les éléments Outlook, vous ne pouvez pas localiser facilement le dossier correspondant au résultat obtenu. Dans ce cas, voici quelques astuces pour accéder et ouvrir rapidement le dossier du résultat de votre recherche.

Accéder au dossier du résultat de recherche à l’aide de VBA

Accéder au dossier du résultat de recherche via un clic droit

---

Accéder au dossier du résultat de recherche à l’aide de VBA

Outlook ne propose aucune fonction intégrée pour accomplir cette tâche, à l’exception du code VBA.

Avant d’utiliser le code VBA, veillez à afficher la colonne « Nom du dossier » dans les résultats de recherche.

1. Cliquez sur Affichage > Ajouter plusieurs colonnes.

2. Dans la boîte de dialogue Afficher les colonnes, sous la liste déroulante Sélectionner les colonnes disponibles depuis, choisissez Tous les champs de messagerie, puis sélectionnez Dans le dossier dans la liste Colonnes disponibles.

3. Cliquez sur Ajouter pour ajouter Dans les dossiers à la liste Afficher ces colonnes dans cet ordre, puis cliquez sur le bouton Déplacer vers le haut afin de placer Dans le dossier en première position.

4. Cliquez sur OK pour fermer la boîte de dialogue. Désormais, lorsque vous effectuez une recherche d’e-mails, la colonne « Nom du dossier » s’affichera dans les résultats.

5. Appuyez maintenant sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, puis cliquez sur Insertion > Module afin de créer un nouveau module.

6. Copiez-collez le code ci-dessous dans le module.

VBA : Ouvrir le dossier Outlook spécifié par nom

Sub FindFolderByName()
'UpdatebyExtendoffice20181105
    Dim xFldName As String
    Dim xFoundFolder As Folder
    Dim xYesNo As Integer
    On Error Resume Next
    xFldName = InputBox("Folder Name:", "Kutools for Outlook")
    If Len(Trim(xFldName)) = 0 Then Exit Sub
    Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
    If xFoundFolder Is Nothing Then
        MsgBox "Not Found", vbInformation, "Kutools for Outlook"
        Exit Sub
    End If
    xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbNo Then Exit Sub
    Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
    Dim xSubFolder As Outlook.MAPIFolder
    On Error Resume Next
    Set ProcessFolders = Nothing
    For Each xSubFolder In Flds
        If UCase(xSubFolder.Name) = UCase(Name) Then
            Set ProcessFolders = xSubFolder
            Exit For
        Else
            Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
            If Not ProcessFolders Is Nothing Then Exit For
        End If
    Next
End Function

7. Appuyez sur la touche F5 pour exécuter le code, puis saisissez le nom du dossier vers lequel vous souhaitez accéder dans la boîte de dialogue.

8. Cliquez sur OK. Une boîte de dialogue s’ouvre pour vous indiquer l’emplacement du dossier ; cliquez sur Oui pour accéder directement au dossier, ou sur Non pour annuler.

---

Accéder au dossier du résultat de recherche via un clic droit

Si vous disposez de Kutools pour Outlook, la fonctionnalité « Ouvrir le dossier » sera intégrée au menu contextuel, vous permettant d’accéder instantanément au dossier de l’e-mail sélectionné — même depuis la liste des résultats de recherche.

Installez gratuitementKutools pour Outlook, puis procédez comme suit :

Après avoir effectué une recherche, cliquez avec le bouton droit sur le résultat dont vous souhaitez ouvrir le dossier, puis sélectionnez Ouvrir dans le dossier (Kutools) dans le menu contextuel.