Comment rechercher un dossier (avec son chemin complet) par son nom dans Outlook ?

Veuillez suivre les étapes ci-dessous pour rechercher des dossiers par nom à l’aide de VBA dans Outlook.

1. Appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

2. Cliquez sur « Insertion » > « Module », puis collez le code VBA ci-dessous dans la nouvelle fenêtre du module.

VBA : Rechercher et Ouvrir le dossier par Nom du dossier dans Outlook

Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean

Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True

Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders

  Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False

  sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName

  m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

  Set oFolders = Application.Session.Folders
LoopFolders oFolders

  If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean

If SpeedUp = False Then DoEvents

  For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If

    If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub

3. Appuyez sur la touche « F5 » ou cliquez sur le bouton « Exécuter » pour lancer ce code VBA.

4. Dans la boîte de dialogue « Rechercher un dossier » qui s’ouvre, saisissez le nom du dossier à partir duquel vous souhaitez lancer la recherche, puis cliquez sur le bouton « OK ».

Remarque : Ce code VBA prend en charge le caractère générique astérisque (*). Par exemple, saisissez « tes* » pour trouver tous les dossiers dont le nom commence par « tes ».

5. Une boîte de dialogue s’affiche désormais, indiquant le chemin du fichier du dossier trouvé. Pour l’ouvrir, cliquez sur le bouton « Oui ».

Le dossier trouvé s’ouvre maintenant dans le Navigation, comme illustré dans la capture d’écran ci-dessous :

Remarque : si plusieurs dossiers portent le même nom spécifié, ce code VBA n’en trouvera et n’en ouvrira qu’un seul.

Si vous avez installé « Kutools pour Outlook », utilisez sa fonctionnalité « Atteindre » pour rechercher instantanément tous les dossiers à partir d’un nom donné et ouvrir en un clic l’un des dossiers trouvés.

1. Cliquez sur « KUTOOLS PLUS » > « Atteindre » pour activer cette fonctionnalité.

2. Dans la boîte de dialogue « Atteindre », saisissez le nom du dossier indiqué dans le champ « Rechercher », sélectionnez un résultat dans la liste, puis cliquez sur « OK ».

Le dossier spécifié, portant le nom indiqué, est désormais localisé et ouvert instantanément.