Comment trouver un dossier par nom dans Outlook?
Par exemple, vous avez créé de nombreux dossiers de messagerie dans Outlook, lorsqu'un dossier personnel spécifié doit être ouvert, vous devez développer plusieurs dossiers jusqu'à ce que ce dossier spécifié s'affiche. Il est difficile de développer plusieurs dossiers un par un juste pour ouvrir un dossier personnel spécifié. En fait, si vous vous souvenez du nom du dossier, tout deviendra facile. Dans ce didacticiel, nous vous fournirons une méthode de recherche de dossier par son nom dans Outlook au lieu de développer les dossiers un par un pour trouver le dossier.
Rechercher un dossier par nom dans Outlook avec le code VBA
Rechercher le dossier par nom dans les comptes Outlook par Kutools for Outlook
Rechercher un dossier par nom dans Outlook avec le code VBA
Avec le code VBA suivant, vous pouvez facilement trouver un dossier spécifié par son nom.
Notes: Vous devez vous souvenir du nom du dossier pour utiliser ce code VBA.
1. appuie sur le autre + F11 touches sur le clavier pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Double-cliquez ensuite sur le Project1 > Objet Microsoft Outlook > Cette session Outlook ouvrir le Projet1 - ThisOutlookSession la fenêtre. Voir la capture d'écran:
3. Copiez et collez le code VBA suivant dans la fenêtre Project1 - ThisOutlookSession.
VBA: rechercher un dossier par 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 F5 touche du clavier pour exécuter le code VBA.
5. dans le Macros boîte de dialogue, cliquez sur le Courir .
6. Dans le pop-up Dossier de recherche boîte de dialogue, veuillez saisir le nom du dossier dans la zone de texte, puis cliquez sur le OK bouton. Voir la capture d'écran:
7. Puis un Microsoft Outlook boîte de dialogue apparaît, il montre le chemin de votre dossier souhaité, puis cliquez sur le Oui .
8. Ensuite, le dossier de courrier électronique spécifié sera ouvert immédiatement.
Notes: Ce code VBA peut être appliqué à Outlook 2007, 2010 et 2013.
Rechercher le dossier par nom dans les comptes Outlook par Kutools for Outlook
Si vous n'êtes pas bon en VBA, vous pouvez essayer Kutools for Outlook's Aller à utilitaire, qui peut trouver et rechercher un dossier avec un nom ou un caractère spécifique, puis accéder directement au dossier
Installation gratuite Kutools for Outlook, puis procédez comme suit:
1. Cliquez Kutools Plus > Aller à.
2. dans le Aller à boîte de dialogue, tapez le nom du dossier ou des caractères spécifiques dans la barre de recherche, puis les dossiers relatifs sont listés.
3. Double-cliquez sur le nom du dossier dans lequel vous souhaitez accéder et ouvrez, puis le dossier est ouvert.
Démonstration
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
