Comment rechercher un dossier par son nom dans Outlook ?
Par exemple, vous avez créé de nombreux dossiers de courrier électronique dans Outlook. Lorsqu'un dossier personnel spécifique doit être ouvert, vous devez développer plusieurs dossiers jusqu'à ce que le dossier spécifié apparaisse. Il est fastidieux de développer plusieurs dossiers un par un juste pour ouvrir un dossier personnel spécifique. En réalité, si vous vous souvenez du nom du dossier, tout devient plus facile. Dans ce tutoriel, nous vous fournirons une méthode pour trouver un dossier par son nom dans Outlook au lieu de développer les dossiers un par un pour retrouver le dossier.
Rechercher un dossier par son nom dans Outlook avec un code VBA
Rechercher un dossier par son nom à travers les comptes dans Outlook avec Kutools pour Outlook
Rechercher un dossier par son nom dans Outlook avec un code VBA
Avec le code VBA suivant, vous pouvez facilement trouver un dossier spécifique par son nom.
Remarque : Vous devez vous souvenir du nom du dossier afin d'utiliser ce code VBA.
1. Appuyez sur les touches Alt + F11 du clavier pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Double-cliquez ensuite sur Projet1 > Objet Microsoft Outlook > ThisOutlookSession pour ouvrir la fenêtre Projet1 – ThisOutlookSession. Voir capture d'écran :
3. Copiez et collez le code VBA suivant dans la fenêtre Projet1 – ThisOutlookSession.
VBA : trouver 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 apparaît, saisissez le nom du dossier dans la zone de texte, puis cliquez sur le bouton OK. Voir capture d'écran :
7. Une boîte de dialogue Microsoft Outlook apparaît, elle montre le chemin de votre dossier souhaité, puis cliquez sur le bouton Oui.
8. Le dossier de courrier électronique spécifié s'ouvrira immédiatement.
Remarque : Ce code VBA peut être appliqué à Outlook 2007, 2010 et 2013.
Rechercher un dossier par son nom à travers les comptes dans Outlook avec Kutools pour Outlook
Si vous n'êtes pas doué en VBA, vous pouvez essayer l'utilitaire Go To de Kutools pour Outlook, qui peut rechercher et trouver un dossier par son nom ou caractère spécifique, puis y accéder directement.
Installez gratuitement Kutools pour Outlook, puis suivez les étapes ci-dessous :
1. Cliquez sur Kutools Plus > Dossier > Go To.
2. Dans la boîte de dialogue Go To, saisissez le nom du dossier ou des caractères spécifiques dans la barre de recherche, puis les dossiers correspondants sont listés.
3. Double-cliquez sur le nom du dossier que vous souhaitez ouvrir, puis le dossier s'ouvre.
Démo
Meilleurs outils de productivité pour Office
Dernières nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
