2 moyens de supprimer rapidement les jours fériés en double dans votre calendrier Outlook

Si vous ajoutez les mêmes jours fériés à un même calendrier deux fois ou plus par accident, vous constaterez que le calendrier est bourré de jours fériés en double. Dans ce scénario, vous devez désirer supprimer les doublons. Maintenant, cet article va vous apprendre 2 moyens.

Outlook a une fonctionnalité intégrée pour ajouter rapidement des jours fériés dans le calendrier par défaut. C'est incontestablement assez pratique pour les utilisateurs. Cependant, si vous ajoutez les jours fériés deux fois ou plus par erreur, votre calendrier par défaut sera rempli avec les jours fériés en double. Maintenant, dans ce qui suit, nous vous présenterons 2 approches pour supprimer rapidement les doublons.

Méthode 1 : supprimer tous les jours fériés et les ajouter à nouveau

1. Pour commencer, lancez votre programme Outlook.
2. Accédez ensuite au dossier Calendrier source.
3. Passez ensuite à l'onglet "Affichage" et choisissez "Modifier l'affichage"> "Liste".
4. Après cela, vous devez cliquer sur le bouton "Catégories" dans le groupe "Arrangement".
5. Ensuite, vous verrez que tous les rendez-vous ont été regroupés par catégories.
6. Vous pouvez maintenant découvrir le groupe "Vacances".
7. Enfin, cliquez sur l'en-tête de groupe "Vacances", puis appuyez sur la touche "Suppr".
8. En même temps, tous les jours fériés existants ont été supprimés.
9. Après les avoir supprimés, vous pouvez rajouter le jour férié. Tout d'abord, allez dans "Fichier"> Options".
10. Dans la fenêtre contextuelle "Options Outlook", vous pouvez passer à l'onglet "Calendrier".
11. Sous cet onglet, vous pourrez localiser le bouton "Ajouter des jours fériés".
12. Ensuite, dans la nouvelle boîte de dialogue, sélectionnez un emplacement, tel que "États-Unis" et appuyez sur "OK".
13. Finalement, les jours fériés ont été à nouveau importés dans le calendrier par défaut.

Méthode 2 : supprimer les jours fériés en double avec VBA

1. Au tout début, appuyez sur les touches "Alt + F11".
2. Ensuite, vous accéderez à la fenêtre de l'éditeur Outlook VBA, dans laquelle vous pourrez ouvrir un module inutilisé.
3. Ensuite, copiez le code VBA suivant dans ce module.

Sub RemoveDuplicateHolidays()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objPSTFile As Outlook.Folder
    Dim objFolders As Outlook.folders
    Dim objFolder As Object

    Set objStores = Outlook.Application.Session.Stores
 
    'Process all Outlook PST files in your Outlook
    For Each objStore In objStores
        Set objPSTFile = objStore.GetRootFolder
        For Each objFolder In objPSTFile.folders
            Call ProcessFolders(objFolder)
        Next
    Next

End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("Scripting.Dictionary")

    If objCurrentFolder.DefaultItemType = olAppointmentItem Then
       For i = objCurrentFolder.Items.count To 1 Step -1
           Set objItem = objCurrentFolder.Items.Item(i)
 
           'Get all holidays based on the "Holiday" category
           If objItem.Categories = "Holiday" Then
              strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
              strKey = Replace(strKey, ", ", Chr(32))

              If objDictionary.Exists(strKey) = True Then
                 objItem.Delete
              Else
                 objDictionary.Add strKey, True
              End If
          End If
       Next i
    End If
End Sub

4. En fin de compte, vous pouvez essayer cette macro.

• Cliquez sur la sous-routine "RemoveDuplicateHolidays".
• Appuyez ensuite sur la touche F5 pour l'exécuter.
• Une fois terminé, tous les jours fériés en double dans tous vos calendriers Outlook sont supprimés.

Récupérer de précieuses données Outlook

C'est un fait incontesté qu'aucun programme ne peut garantir qu'il peut être à l'abri des erreurs et de la corruption. Il en va de même pour Outlook. Par conséquent, afin de protéger vos données Outlook, vous feriez mieux de faire des sauvegardes de données régulières. En outre, vous devez planifier à l'avance un plan de récupération Outlook. Enfin et surtout, il est prudent de préparer un outil de réparation réputé, tel que DataNumen Outlook Repair. Il est capable de réparer Outlook problèmes en un tournemain et récupérez un maximum de données Outlook à partir d'un fichier compromis.

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 Server et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com