Comment trouver un dossier (chemin complet du dossier) par son nom dans Outlook ?

Veuillez suivre les étapes ci-dessous pour rechercher des dossiers par leurs noms avec VBA dans Outlook.

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

2. Cliquez sur "Insérer" > "Module", puis collez le code VBA ci-dessous dans la nouvelle fenêtre Module.

VBA : Rechercher et ouvrir des dossiers par leur nom 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 exécuter cette macro VBA.

4. Dans la boîte de dialogue "Rechercher un dossier" qui apparaît, veuillez saisir le nom du dossier spécifié que vous recherchez, puis cliquez sur le bouton "OK".

Remarque : Cette macro VBA prend en charge le caractère générique astérisque (*). Par exemple, vous pouvez taper tes* pour trouver tous les dossiers dont le nom commence par "tes".

5. Une boîte de dialogue s'affiche maintenant et montre le chemin du dossier trouvé. Si vous devez ouvrir le dossier trouvé, veuillez cliquer sur le bouton "Oui".

Et maintenant, le dossier trouvé s'ouvre dans le volet de navigation, comme illustré dans la capture d'écran ci-dessous :

Remarque : S'il existe plusieurs dossiers portant le même nom spécifié, cette macro VBA ne peut trouver et ouvrir qu'un seul dossier.

Si vous avez installé "Kutools pour Outlook", vous pouvez utiliser sa fonctionnalité "Ouvrir le dossier" pour rapidement trouver tous les dossiers correspondant à un certain nom de dossier, et facilement ouvrir n'importe quel dossier trouvé.

1. Cliquez sur "Kutools Plus" > "Ouvrir le dossier" pour activer cette fonctionnalité.

2. Dans la boîte de dialogue "Ouvrir le dossier", veuillez saisir le nom du dossier spécifié dans la zone de "Recherche", sélectionnez un dossier dans les résultats de la recherche, puis cliquez sur le bouton "OK".

Maintenant, le dossier spécifié avec le nom de dossier donné est trouvé et ouvert immédiatement.