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 dans 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 course .

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 dans Outlook par Kutools for Outlook

Si vous n'êtes pas bon en VBA, vous pouvez essayer Kutools pour 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

---

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...