Note: The other languages of the website are Google-translated. Back to English

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 Outlookbonne idée3


flèche bleue bulle droite 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.


flèche bleue bulle droite 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

Kutools for Outlook , Inclus
100
fonctionnalités et outils puissants pour Microsoft Outlook 2016, 2013, 2010 et Office 365.

Installation gratuite Kutools for Outlook, puis procédez comme suit:

1. Cliquez Kutools Plus > Aller à.
doc trouver le dossier par nom 5

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.
doc trouver le dossier par nom 6

3. Double-cliquez sur le nom du dossier dans lequel vous souhaitez accéder et ouvrez, puis le dossier est ouvert.
doc trouver le dossier par nom 7


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.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen d'ajouter une itération de dossier au code ci-dessus. Supposons que l'utilisateur dispose de plusieurs dossiers nommés Employé, est-il possible qu'il passe par une boucle pour trouver toutes les instances et permettre à l'utilisateur de sélectionner le dossier approprié ?
Ce commentaire a été minimisé par le modérateur sur le site
Tout comme Matt l'a écrit, je cherchais aussi cela. La façon dont le code fonctionne est qu'il ouvrira le premier dossier qu'il trouve avec le nom à rechercher. Est-il possible d'ajuster le code pour qu'il trouve plusieurs instances ?
Ce commentaire a été minimisé par le modérateur sur le site
la ligne "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" génère un message d'erreur de compilation : Type défini par l'utilisateur non défini
Ce commentaire a été minimisé par le modérateur sur le site
La ligne "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" génère un message d'erreur de compilation - Type défini par l'utilisateur non défini
Ce commentaire a été minimisé par le modérateur sur le site
Je travaille actuellement avec Outlook 2013, et bien que cet outil soit merveilleusement utile, je suis dans le même bateau que Matt et Richard. J'aimerais pouvoir en quelque sorte parcourir plusieurs dossiers portant le même nom. J'aimerais aussi pouvoir faire ceci : si j'ai plusieurs dossiers avec des dates, 2012,2013,2014 par exemple, j'aimerais pouvoir mettre 20* ou 20 ?? puis être invité à afficher l'un des dossiers susmentionnés, au lieu de simplement utiliser par défaut le premier qu'il trouve.
Ce commentaire a été minimisé par le modérateur sur le site
Il a l'air génial mais je cherche plus de dossier avec un nom similaire....
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL