2 способа быстро удалить повторяющиеся праздники в календаре Outlook

Если вы случайно добавите одни и те же праздники в один и тот же календарь два или более раз, вы обнаружите, что календарь заполнен повторяющимися праздниками. В этом случае вы должны захотеть удалить дубликаты. Теперь эта статья научит вас 2 средства.

В Outlook есть встроенная функция для быстрого добавления праздников в календарь по умолчанию. Это, несомненно, очень удобно для пользователей. Однако, если вы добавите праздники два или более раз по ошибке, ваш календарь по умолчанию будет заполнен повторяющимися праздниками. Далее мы представим вам 2 подхода к быстрому удалению дубликатов.

Способ 1: удалить все праздники и добавить их снова

1. К start с, запустите программу Outlook.
2. Затем откройте исходную папку календаря.
3. Затем перейдите на вкладку «Вид» и выберите «Изменить вид» > «Список».
4. После этого следует нажать на кнопку «Категории» в группе «Расстановка».
5. Далее вы увидите, что все встречи были сгруппированы по категориям.
6. Теперь вы можете узнать группу «Праздник».
7. Наконец, щелкните заголовок группы «Праздник» и нажмите клавишу «Удалить».
8. Сразу же были удалены все существующие праздники.
9. После их удаления вы можете снова добавить праздник. Во-первых, перейдите в «Файл»> «Параметры».
10. Во всплывающем окне «Параметры Outlook» вы можете переключиться на вкладку «Календарь».
11. На этой вкладке вы сможете найти кнопку «Добавить праздники».
12. Затем в новом диалоговом окне выберите место, например «США», и нажмите «ОК».
13. В конце концов, праздники снова были импортированы в календарь по умолчанию.

Способ 2: удалить повторяющиеся праздники с помощью VBA

1. В самом начале нажмите клавиши «Alt + F11».
2. Далее вы получите доступ к окну редактора Outlook VBA, в котором вы можете открыть неиспользуемый модуль.
3. Затем скопируйте следующий код 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

4. В конце концов, вы можете попробовать этот макрос.

• Нажмите на подпрограмму «RemoveDuplicateHolidays».
• Затем нажмите клавишу F5, чтобы запустить его.
• После его завершения все повторяющиеся праздники во всех ваших календарях Outlook удаляются.

Получить ценные данные Outlook

Это неоспоримый факт, что ни одна программа не может гарантировать, что она может быть защищена от ошибок и искажений. То же самое справедливо и для Outlook. Поэтому, чтобы защитить данные Outlook, лучше делать регулярные резервные копии данных. Кроме того, вам необходимо заранее составить план восстановления Outlook. И последнее, но не менее важное: разумно подготовить надежное средство исправления, такое как DataNumen Outlook Repair, Это в состоянии восстановить Outlook проблемы в один миг и вернуть максимум данных Outlook из скомпрометированного файла.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая оправляться Sql Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com