Comment rechercher un dossier par son nom dans Outlook ?

Par exemple, vous avez créé de nombreux dossiers de messagerie dans Outlook. Lorsque vous souhaitez accéder à un dossier personnel précis, vous devez développer plusieurs niveaux de dossiers jusqu’à ce que le bon apparaisse — une tâche fastidieuse lorsqu’il faut ouvrir un à un chacun d’entre eux simplement pour atteindre le dossier recherché. Pourtant, si vous vous souvenez du nom du dossier, tout devient bien plus simple. Dans ce tutoriel, nous vous présentons une méthode efficace pour retrouver instantanément un dossier par son nom dans Outlook, sans avoir à naviguer manuellement dans l’arborescence.

Rechercher un dossier par son nom dans Outlook à l’aide d’un code VBA

Rechercher un dossier par son nom dans tous les comptes Outlook avec Kutools pour Outlook

---

Rechercher un dossier par son nom dans Outlook à l’aide d’un code VBA

Grâce au code VBA ci-dessous, retrouvez facilement un dossier spécifique rien qu’en connaissant son nom.

Remarque : vous devez vous souvenir du nom du dossier pour pouvoir utiliser ce code VBA.

1. Appuyez sur les touches Alt + F11 de votre clavier pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez ensuite sur Projet1 > Objets Microsoft Outlook > ThisOutlookSession pour ouvrir la fenêtre Projet1 – ThisOutlookSession. Voir la capture d’écran :

3. Copiez et collez le code VBA suivant dans la fenêtre Projet1 – ThisOutlookSession.

VBA : rechercher un dossier par son nom

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Appuyez ensuite sur la touche F5 du clavier pour exécuter le code VBA.

5. Dans la boîte de dialogue Macros, cliquez sur le bouton Exécuter.

6. Dans la boîte de dialogue Rechercher un dossier qui s’ouvre, saisissez le nom du dossier dans la zone de texte, puis cliquez sur le bouton OK. Voir la capture d’écran :

7. Une boîte de dialogue Microsoft Outlook s’ouvre alors, affichant le chemin d’accès du dossier recherché. Cliquez ensuite sur le bouton Oui.

8. Le dossier de messagerie spécifié s’ouvre instantanément.

Remarque : Ce code VBA est compatible avec Outlook 2007, 2010 et 2013.

---

Rechercher un dossier par son nom dans tous les comptes Outlook avec Kutools pour Outlook

Si vous n’êtes pas à l’aise avec VBA, essayez l’utilitaire Kutools pour Outlook de Atteindre : il vous permet de rechercher un dossier par son nom ou à l’aide de caractères spécifiques, puis d’y accéder directement.

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

1. Cliquez sur KUTOOLS PLUS > Dossier > Atteindre.

2. Dans la boîte de dialogue Atteindre, saisissez le nom du dossier ou des caractères spécifiques dans la barre de recherche ; les dossiers correspondants s’affichent alors.

3. Double-cliquez sur le nom du dossier que vous souhaitez atteindre et ouvrir ; celui-ci s’ouvre alors.

  Démo