2 средства за бързо премахване на дублиращи се празници във вашия календар на Outlook

Ако добавите едни и същи празници към един и същи календар два пъти или повече пъти случайно, ще откриете, че календарът е пълен с дублирани празници. В този сценарий трябва да желаете да премахнете дубликатите. Сега тази статия ще ви научи на 2 начина.

Outlook има вградена функция за бързо добавяне на празници в календара по подразбиране. Безспорно е доста удобен за потребителите. Ако обаче добавите празниците два пъти или повече пъти погрешно, календарът ви по подразбиране ще бъде запълнен с дублираните празници. Сега, по-долу, ще ви представим 2 подхода за бързо премахване на дубликатите.

Метод 1: Премахнете всички празници и ги добавете отново

1. За начало стартирайте програмата Outlook.
2. След това отворете изходната папка Календар.
3. След това преминете към раздела „Преглед“ и изберете „Промяна на изгледа“> „Списък“.
4. След това трябва да кликнете върху бутона „Категории“ в групата „Подреждане“.
5. След това ще видите, че всички срещи са групирани по категории.
6. Сега можете да разберете групата „Ваканция“.
7. Накрая кликнете върху заглавката на групата „Ваканция“ и след това натиснете клавиша „Изтриване“.
8. Веднага са премахнати всички съществуващи празници.
9. След като ги изтриете, можете да добавите отново празника. Първо отидете на „Файл“> „Опции“.
10. В изскачащия прозорец „Опции на Outlook“ можете да превключите към раздела „Календар“.
11. Под този раздел ще можете да намерите бутона „Добавяне на празници“.
12. След това в новия диалогов прозорец изберете местоположение, като „САЩ“ и натиснете „OK“.
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