2 Az ismétlődő ünnepnapok gyors eltávolítása az Outlook-naptárból

Ha véletlenül kétszer vagy többször hozzáadja ugyanazt az ünnepnapot egy naptárhoz, azt tapasztalhatja, hogy a naptár meg van tömve ismétlődő ünnepnapokkal. Ebben a forgatókönyvben el kell távolítania az ismétlődéseket. Ez a cikk 2 eszközt tanít meg Önnek.

Az Outlook beépített funkcióval rendelkezik, amellyel gyorsan hozzáadhat ünnepnapokat az alapértelmezett naptárhoz. Kétségtelenül nagyon kényelmes a felhasználók számára. Ha azonban tévedésből kétszer vagy többször adja hozzá az ünnepnapokat, az alapértelmezett naptár megtelik az ismétlődő ünnepnapokkal. A következőkben két módszert mutatunk be a másolatok gyors eltávolítására.

1. módszer: Távolítsa el az összes ünnepnapot, és adja hozzá őket újra

1. Kezdésként indítsa el az Outlook programot.
2. Ezután nyissa meg a forrás Naptár mappát.
3. Ezután váltson a „Nézet” fülre, és válassza a „Nézet módosítása” > „Lista” lehetőséget.
4. Ezt követően kattintson a „Kategóriák” gombra az „Elrendezés” csoportban.
5. Ezután látni fogja, hogy az összes találkozó kategóriák szerint van csoportosítva.
6. Most megtudhatja az „Ünnep” csoportot.
7. Végül kattintson a „Holiday” csoport fejlécére, majd nyomja meg a „Törlés” gombot.
8. Egyszerre az összes meglévő ünnepnapot eltávolították.
9. Törlésük után újra hozzáadhatja az ünnepet. Először lépjen a „Fájl” > Beállítások menüpontra.
10. Az előugró „Outlook beállításai” ablakban átválthat a „Naptár” fülre.
11. Ezen a lapon találhatja meg az „Ünnepnapok hozzáadása” gombot.
12. Ezután az új párbeszédpanelen válasszon ki egy helyet, például „Egyesült Államok”, és nyomja meg az „OK” gombot.
13. Végül az ünnepnapokat ismét importálták az alapértelmezett naptárba.

2. módszer: Távolítsa el az ismétlődő ünnepnapokat a VBA segítségével

1. A legelején nyomja meg az „Alt + F11” billentyűket.
2. Ezután megnyílik az Outlook VBA szerkesztő ablaka, amelyben megnyithat egy nem használt modult.
3. Ezt követően másolja be a következő VBA-kódot ebbe a modulba.

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. Végül kipróbálhatja ezt a makrót.

• Kattintson a „RemoveDuplicateHolidays” szubrutinra.
• Ezután nyomja meg az F5 billentyűt a futtatáshoz.
• Miután befejeződött, az összes Outlook-naptárból eltávolítja az összes ismétlődő ünnepnapot.

Értékes Outlook-adatok lekérése

Kétségtelen tény, hogy egyetlen program sem tudja garantálni, hogy mentes a hibáktól és a korrupciótól. Ugyanez igaz az Outlookra is. Ezért az Outlook adatainak védelme érdekében jobb, ha rendszeresen készít biztonsági másolatot az adatokról. Emellett előre ütemeznie kell egy Outlook helyreállítási tervet. Végül, de nem utolsó sorban megfontolandó egy jó hírű javítóeszköz elkészítése, mint pl DataNumen Outlook Repair. Képes javítás Outlook egy pillanat alatt megoldja a problémákat, és visszakapja a legtöbb Outlook adatot a feltört fájlból.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve meggyógyul Sql Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com