Accéder au contenu principal

Comment accéder rapidement et ouvrir le dossier des résultats de recherche dans Outlook ?

Author: Sun Last Modified: 2025-05-27

Dans Outlook, vous pouvez rechercher des emails en fonction d'un texte spécifique grâce à la fonction Recherche. Cependant, si vous effectuez une recherche dans tous les éléments Outlook, il n'est pas possible de trouver rapidement le dossier correspondant aux résultats de la recherche. Dans ce cas, voici quelques astuces qui vous permettront d'accéder rapidement au dossier des résultats de recherche et de l'ouvrir.

Accéder et ouvrir le dossier des résultats de recherche avec VBA

Accéder et ouvrir le dossier des résultats de recherche avec un clic droit


Accéder et ouvrir le dossier des résultats de recherche avec VBA

Dans Outlook, il n'existe aucune fonction intégrée pour réaliser cette tâche, sauf via du code VBA.

Avant d'utiliser le code VBA, vous devez afficher le nom du dossier dans les résultats de recherche.

1. Cliquez sur Affichage > Ajouter des colonnes.

doc go to open folder of searching result 1

2. Dans la boîte de dialogue Afficher les colonnes, sélectionnez Tous les champs de messagerie dans la liste déroulante Choisir les colonnes disponibles, puis choisissez Dossier dans la liste des colonnes disponibles.

doc go to open folder of searching result 2

3. Cliquez sur Ajouter pour ajouter Dossiers à la liste Afficher ces colonnes dans cet ordre, puis cliquez sur Déplacer vers le haut pour placer Dossier en haut.

doc go to open folder of searching result 3

4. Cliquez sur OK pour fermer la fenêtre. Maintenant, lorsque vous recherchez des emails, le nom du dossier sera affiché dans les résultats de recherche.

doc go to open folder of searching result 4

5. Maintenant, appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic for Applications, puis cliquez sur Insérer > Module pour créer un nouveau module.

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

VBA : Accéder au dossier par son 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 entrez le nom du dossier que vous souhaitez ouvrir dans la boîte de dialogue.

doc go to open folder of searching result 5

8. Cliquez sur OK, une boîte de dialogue s'affiche pour vous indiquer l'emplacement du dossier, cliquez sur Oui pour y accéder directement ou sur Non pour annuler.

doc go to open folder of searching result 6

Accéder et ouvrir le dossier des résultats de recherche avec un clic droit

Si vous avez Kutools for Outlook, une fonctionnalité Ouvrir le dossier sera intégrée dans le menu contextuel, ce qui vous permettra d'accéder rapidement au dossier de l'email sélectionné même dans la liste des résultats de recherche.

 👉 Kutools for Outlook dispose désormais d'une version gratuite, avec 70+ fonctionnalités gratuites à vie. Téléchargez la version gratuite dès maintenant.

Installez gratuitement Kutools for Outlook, puis suivez les étapes ci-dessous :

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

doc-click-open-folder

Meilleurs outils de productivité pour Office

Dernières nouvelles : Kutools pour Outlook lance une version gratuite !

Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...

📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...

🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...

👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !

kutools for outlook features1 kutools for outlook features2