Jeśli przypadkowo dodasz te same święta do tego samego kalendarza dwa lub więcej razy, zobaczysz, że kalendarz jest wypełniony zduplikowanymi świętami. W tym scenariuszu musisz chcieć usunąć duplikaty. Teraz ten artykuł nauczy Cię 2 środków.
Outlook ma wbudowaną funkcję szybkiego dodawania świąt do domyślnego kalendarza. Jest to niewątpliwie bardzo wygodne dla użytkowników. Jeśli jednak omyłkowo dodasz święta dwa lub więcej razy, Twój domyślny kalendarz zostanie wypełniony zduplikowanymi dniami wolnymi. Poniżej przedstawimy 2 sposoby szybkiego usuwania duplikatów.
Metoda 1: Usuń wszystkie święta i dodaj je ponownie
- Na początek uruchom program Outlook.
- Następnie uzyskaj dostęp do źródłowego folderu kalendarza.
- Następnie przejdź do zakładki „Widok” i wybierz „Zmień widok”> „Lista”.
- Następnie należy kliknąć przycisk „Kategorie” w grupie „Aranżacja”.
- Następnie zobaczysz, że wszystkie spotkania zostały pogrupowane według kategorii.
- Teraz możesz znaleźć grupę „Wakacje”.
- Na koniec kliknij nagłówek grupy „Wakacje”, a następnie naciśnij klawisz „Usuń”.
- Wszystkie istniejące święta zostały natychmiast usunięte.
- Po ich usunięciu możesz ponownie dodać święta. Najpierw przejdź do „Plik”> Opcje ”.
- W wyskakującym oknie „Opcje Outlooka” możesz przejść do zakładki „Kalendarz”.
- W tej zakładce będziesz mógł znaleźć przycisk „Dodaj święta”.
- Następnie w nowym oknie dialogowym wybierz lokalizację, na przykład „Stany Zjednoczone” i naciśnij „OK”.
- Ostatecznie święta zostały ponownie zaimportowane do domyślnego kalendarza.
Metoda 2: Usuń zduplikowane święta za pomocą VBA
- Na samym początku naciśnij klawisze „Alt + F11”.
- Następnie uzyskasz dostęp do okna edytora Outlook VBA, w którym możesz otworzyć nieużywany moduł.
- Następnie skopiuj następujący kod VBA do tego modułu.
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
- Ostatecznie możesz wypróbować to makro.
- Kliknij podprogram „RemoveDuplicateHolidays”.
- Następnie naciśnij klawisz F5, aby go uruchomić.
- Po zakończeniu wszystkie zduplikowane święta we wszystkich kalendarzach programu Outlook zostaną usunięte.
Uzyskaj cenne dane programu Outlook
Niekwestionowanym faktem jest, że żaden program nie może zagwarantować, że będzie odporny na błędy i korupcję. To samo dotyczy Outlooka. Dlatego w celu ochrony danych programu Outlook lepiej wykonywać regularne kopie zapasowe danych. Poza tym musisz wcześniej zaplanować plan odzyskiwania programu Outlook. Wreszcie, rozsądne jest przygotowanie renomowanego narzędzia naprawczego, takiego jak DataNumen Outlook Repair. Jest w stanie napraw Outlooka problemy w mgnieniu oka i odzyskaj maksymalną ilość danych programu Outlook z zaatakowanego pliku.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym wyzdrowieć Sql Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com