Comment accéder rapidement et ouvrir le dossier du résultat de la recherche dans Outlook?

Dans Outlook, vous pouvez rechercher des e-mails en fonction du texte spécifique avec la fonction de recherche. Mais, si vous recherchez dans tous les éléments Outlook, vous ne pouvez pas trouver rapidement le dossier du résultat de la recherche. Dans ce cas, j'ai ici quelques astuces qui peuvent vous aider à accéder rapidement et à ouvrir le dossier du résultat de la recherche.

Accédez au dossier du résultat de la recherche et ouvrez-le avec VBA

Accédez au dossier du résultat de la recherche et ouvrez-le avec un clic droit

Accédez au dossier du résultat de la recherche et ouvrez-le avec VBA

Dans Outlook, aucune fonction intégrée ne peut gérer ce travail, à l'exception du code VBA.

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

1. Cliquez Voir > Ajouter des colonnes.

2. dans le Afficher les colonnes dialogue et dans Sélectionnez les colonnes disponibles dans liste déroulante, sélectionnez Tous les champs de courrier, Puis choisissez Dans le dossier dans l' Colonnes disponibles liste.

3. Cliquez Ajouter à ajouter Dans les dossiers à Afficher ces colonnes dans cet ordre liste, puis cliquez sur Déplacer vers le haut bouton pour se déplacer Dans le dossier vers haut.

4. Cliquez OK pour fermer la boîte de dialogue. Maintenant, pendant que vous recherchez des e-mails, le nom du dossier s'affiche dans les résultats de la recherche.

5. Appuyez maintenant sur Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module pour créer un nouveau module.

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

VBA: accédez au dossier par un 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. presse F5 pour activer le code, entrez maintenant le nom du dossier dans lequel vous souhaitez accéder dans la boîte de dialogue.

8. Cliquez OK, une boîte de dialogue apparaît pour vous rappeler l'emplacement du dossier, cliquez sur Oui pour accéder directement au dossier, ou cliquez sur Non annuler.

Accédez au dossier du résultat de la recherche et ouvrez-le avec un clic droit

Si vous avez Kutools for Outlook, il y aura un Dossier ouvert utilitaire intégré dans le menu contextuel qui permet d'accéder rapidement au dossier de l'e-mail sélectionné.

Installation gratuite Kutools for Outlook, puis procédez comme suit:

Après la recherche, faites un clic droit sur le résultat que vous souhaitez ouvrir son dossier, sélectionnez Dossier ouvert dans le menu contextuel.

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat