Comment supprimer par lots tous les dossiers de recherche dans votre Outlook

Par défaut, Outlook n'autorise pas les utilisateurs à supprimer plus d'un dossier de recherche en une seule fois, sans parler de supprimer en bloc tous les dossiers de recherche. Mais cet article va vous partager une méthode, qui peut le réaliser.

Généralement, pour supprimer un dossier de recherche, vous pouvez cliquer dessus avec le bouton droit de la souris et choisir l'option "Supprimer le dossier" dans son menu contextuel. De cette façon, lorsque vous devrez supprimer tous vos dossiers de recherche, vous penserez sûrement que c'est assez fastidieux et encombrant. Vous devez souhaiter les supprimer tous en une seule fois. Ainsi, nous allons vous présenter ici un moyen qui peut vous aider à accomplir la suppression en un tournemain.

Supprimer par lots tous les dossiers de recherche

1. Au tout début, vous devez lancer votre Outlook normalement.
2. Ensuite, après avoir accédé à l'écran principal d'Outlook, vous devez appuyer sur les touches "Alt + F11".
3. Immédiatement, vous entrerez dans la fenêtre "Microsoft Visual Basic pour Applications".
4. Par la suite, vous devez rechercher et ouvrir un module qui n'est pas utilisé.
5. Ensuite, vous pouvez copier et coller le code VBA suivant dans ce module.

Sub BatchDeleteAllSearchFolders()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.store
    Dim objSearchFolders As Outlook.Folders
    Dim objSearchFolder As Outlook.Folder

    On Error Resume Next
    Set objStores = Outlook.Application.Session.Stores
 
    For Each objStore In objStores
        'Get all search folders under each Outlook data file
        Set objSearchFolders = objStore.GetSearchFolders
        For Each objSearchFolder In objSearchFolders
            'Delete each search folder
            objSearchFolder.Delete
        Next
    Next
End Sub

Remarques :

• Peut-être avez-vous configuré plusieurs comptes de messagerie dans votre Outlook. Et chacun a ses propres fichiers PST. Dans chaque fichier, vous pouvez créer des dossiers de recherche. Par le code ci-dessus, tous les dossiers de recherche seront supprimés, quels que soient les fichiers dans lesquels ils se trouvent.
• Si vous souhaitez spécifier un fichier de données Outlook, vous pouvez ajouter la ligne suivante sous "Pour chaque objStore dans objStores". Ici, vous devez remplacer le "John Smith" par le nom d'affichage de votre propre fichier PST.

If objStore.DisplayName = "John Smith" Then
 . . . . . . . . . . . . . . .
End If

6. Après cela, vous devez définir le niveau de sécurité de votre macro Outlook sur faible.
7. Finalement, dans la fenêtre "Microsoft Visual Basic pour Applications", pour exécuter cette macro, vous pouvez cliquer sur le bouton de la touche F5.
8. Une fois la macro terminée, vous constaterez que tous les dossiers de recherche de votre Outlook ont ​​été supprimés.

Protégez vos données Outlook

Étant donné qu'Outlook est sujet à la corruption, il est essentiel de prendre des mesures importantes pour protéger vos données. L'une des solutions les plus importantes consiste à effectuer des sauvegardes régulières et à jour de vos fichiers Outlook. De plus, cela vous permettra de récupérer rapidement vos données en cas de problème. Corruption d'Outlook, vous feriez mieux de préparer un outil de correction convaincant et réputé, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com