Als je dezelfde feestdagen per ongeluk twee of meer keer aan dezelfde kalender toevoegt, zul je merken dat de kalender vol zit met dubbele feestdagen. In dit scenario moet u de duplicaten willen verwijderen. Nu leert dit artikel je 2 manieren.
Outlook heeft een ingebouwde functie om snel feestdagen toe te voegen aan de standaardagenda. Het is ongetwijfeld best handig voor gebruikers. Als u de feestdagen echter per ongeluk twee of meer keer toevoegt, wordt uw standaardkalender gevuld met dubbele feestdagen. Nu, in het volgende, zullen we u 2 benaderingen voorstellen om de duplicaten snel te verwijderen.

Methode 1: verwijder alle feestdagen en voeg ze opnieuw toe
- Begin met het opstarten van uw Outlook-programma.
- Open vervolgens de bronmap Agenda.
- Schakel vervolgens naar het tabblad "Weergave" en kies "Weergave wijzigen"> "Lijst".
- Daarna moet u op de knop "Categorieën" in de groep "Arrangement" klikken.
- Vervolgens ziet u dat alle afspraken zijn gegroepeerd op categorie.
- Nu kunt u de groep "Vakantie" ontdekken.
- Klik ten slotte op de kop van de groep "Vakantie" en druk vervolgens op de toets "Verwijderen".
- In één keer zijn alle bestaande vakanties verwijderd.
- Nadat u ze hebt verwijderd, kunt u de feestdag opnieuw toevoegen. Ga eerst naar “Bestand”> Opties ”.
- In het pop-upvenster “Outlook-opties” kunt u overschakelen naar het tabblad 'Agenda'.
- Op dit tabblad vindt u de knop "Vakantie toevoegen".
- Selecteer vervolgens in het nieuwe dialoogvenster een locatie, zoals "Verenigde Staten" en klik op "OK".
- Uiteindelijk zijn de feestdagen weer in de standaardkalender geïmporteerd.
Methode 2: verwijder dubbele vakanties met VBA
- Druk vanaf het begin op de toetsen "Alt + F11".
- Vervolgens opent u het Outlook VBA-editorvenster, waarin u een ongebruikte module kunt openen.
- Kopieer vervolgens de volgende VBA-code naar deze 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
- Uiteindelijk kunt u deze macro proberen.
- Klik op de subroutine "RemoveDuplicateHolidays".
- Druk vervolgens op de F5-toets om het uit te voeren.
- Nadat het is voltooid, worden alle dubbele feestdagen in al uw Outlook-agenda's verwijderd.
Haal waardevolle Outlook-gegevens op
Het is een onbetwist feit dat geen enkel programma kan garanderen dat het immuun is voor fouten en corruptie. Hetzelfde geldt voor Outlook. Om uw Outlook-gegevens te beschermen, kunt u daarom beter regelmatig gegevensback-ups maken. Bovendien moet u van tevoren een Outlook-herstelplan plannen. Last but not least is het verstandig om een betrouwbare reparatietool voor te bereiden, zoals DataNumen Outlook Repair. Het kan reparatie Outlook problemen in een handomdraai en krijg maximale Outlook-gegevens terug uit een gecompromitteerd bestand.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstellen Sql Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com



