Recherchez et ouvrez rapidement des dossiers par nom de dossier avec un outil incroyable

En général, nous pouvons rechercher des dossiers par nom de dossier avec le code VBA. La plupart du code VBA peut rechercher des dossiers dans la boîte aux lettres actuelle et ouvrir uniquement le premier dossier trouvé. Désormais, avec la fonctionnalité Aller à de Kutools pour Outlook, vous pouvez facilement rechercher des dossiers par nom de dossier et ouvrir n'importe lequel des dossiers trouvés selon vos besoins.

Veuillez suivre les étapes ci-dessous pour rechercher des dossiers par nom de dossier avec VBA dans Outlook.

1. presse autre + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: recherchez et ouvrez des dossiers par nom de 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. presse F5 ou cliquez sur la Courir bouton pour exécuter ce VBA.

4. Dans la boîte de dialogue contextuelle Rechercher le dossier, saisissez le nom du dossier spécifié dans lequel vous rechercherez, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

Notes: Ce VBA prend en charge le caractère générique astérisque. Par exemple, vous pouvez taper tes * pour découvrir tous les dossiers dont le nom commence par TES.

5. Maintenant, une boîte de dialogue apparaît et affiche le chemin du dossier du dossier trouvé. Si vous devez ouvrir le dossier trouvé, cliquez sur le bouton Oui .

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

Notes: S'il y a plus d'un dossier nommé avec le nom spécifié, ce VBA peut trouver et ouvrir un seul dossier.

Si Kutools for Outlook est installé, vous pouvez appliquer sa fonctionnalité Go To pour trouver rapidement tous les dossiers par un certain nom de dossier et ouvrir facilement tous les dossiers trouvés.

1Cliquez sur Kutools Plus > Aller à pour activer cette fonctionnalité.

2. Dans la boîte de dialogue Aller à, saisissez le nom du dossier spécifié dans le Rechercher , sélectionnez un dossier dans les résultats de la recherche et cliquez sur le Ok .

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