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

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.

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.

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.

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.

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.

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.

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.

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.

---

Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance une version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...

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

🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...

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

Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Acheter