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émo

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (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 facile 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   /  Boostez votre productivité Outlook avec des vues à onglets  /  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 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat