Якщо ви двічі чи більше випадково додаєте одні й ті самі свята до одного календаря випадково, виявите, що календар заповнений повторюваними святами. У цьому випадку вам потрібно побажати видалити дублікати. Тепер ця стаття навчить вас 2 засобам.
Outlook має вбудовану функцію для швидкого додавання свят у календар за замовчуванням. Це, безперечно, досить зручно для користувачів. Однак якщо ви додасте канікули двічі або більше разів помилково, ваш календар за замовчуванням буде заповнений дублікатами канікул. Тепер, далі, ми представимо вам 2 підходи до швидкого видалення дублікатів.
Спосіб 1: Видаліть усі свята та додайте їх знову
- To starЗапустіть програму Outlook.
- Потім відкрийте вихідну папку Календар.
- Потім перейдіть на вкладку «Вид» і виберіть «Змінити вид»> «Список».
- Після цього слід натиснути кнопку «Категорії» в групі «Домовленість».
- Далі ви побачите, що всі зустрічі були згруповані за категоріями.
- Тепер ви можете дізнатися групу “Свято”.
- Нарешті, натисніть на заголовок групи «Свято», а потім натисніть клавішу «Видалити».
- Одразу всі існуючі свята були видалені.
- Після їх видалення можна повторно додати свято. По-перше, перейдіть до «Файл»> «Параметри».
- У спливаючому вікні «Параметри Outlook» ви можете перейти на вкладку «Календар».
- На цій вкладці ви зможете знайти кнопку «Додати відпустки».
- Потім у новому діалоговому вікні виберіть місце, наприклад, “Сполучені Штати” та натисніть “OK”.
- Зрештою, святкові дні знову були імпортовані до Календаря за замовчуванням.
Спосіб 2: Видаліть повторювані канікули за допомогою VBA
- З самого початку натисніть клавіші “Alt + F11”.
- Далі ви отримаєте доступ до вікна редактора Outlook VBA, в якому ви можете відкрити невикористаний модуль.
- Згодом скопіюйте наступний код VBA в цей модуль.
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
- Зрештою, ви можете спробувати цей макрос.
- Клацніть на підпрограму “RemoveDuplicateHolidays”.
- Потім натисніть клавішу F5, щоб запустити її.
- Після його завершення видаляються всі повторювані свята у всіх календарях Outlook.
Отримати цінні дані Outlook
Безперечний факт, що жодна програма не може гарантувати, що вона може бути захищена від помилок та корупції. Те саме стосується і Outlook. Тому, щоб захистити ваші дані Outlook, вам краще робити регулярні резервні копії даних. Крім того, вам потрібно заздалегідь запланувати план відновлення Outlook. Нарешті, але не менш важливо, доцільно підготувати надійний інструмент виправлення, такий як DataNumen Outlook Repair. Це вміє ремонт Outlook миттєво видає повідомлення та отримує максимум даних Outlook зі скомпрометованого файлу.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі оговтуватися Sql Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com