2 Vahendid dubleerivate pühade kiireks eemaldamiseks Outlooki kalendrist

Outlooki lahendused September 29, 2025

Kui lisate kogemata samad pühad samasse kalendrisse kaks või enam korda, avastate, et kalender on täis topeltpühasid. Selle stsenaariumi korral peate soovima duplikaadid eemaldada. Nüüd õpetab see artikkel teile kahte vahendit.

Outlookil on sisseehitatud funktsioon pühade kiireks lisamiseks vaikekalendrisse. See on kasutajatele vaieldamatult üsna mugav. Kui aga lisate pühad kaks või enam korda kogemata, täidetakse teie vaikekalender dubleerivate pühadega. Järgnevalt tutvustame teile kahte lähenemisviisi duplikaatide kiireks eemaldamiseks.

Eemaldage kiiresti oma Outlooki kalendrist topeltpühad

1. meetod: eemaldage kõik pühad ja lisage need uuesti

  1. Alustamiseks käivitage oma Outlooki programm.
  2. Seejärel avage kausta Calendar.
  3. Järgmisena lülituge vahekaardile "Vaade" ja valige "Muuda vaadet" > "Loend".Muutke kalendrivaade loendivaateks
  4. Pärast seda peaksite klõpsama rühmas "Korraldus" nuppu "Kategooriad".
  5. Järgmisena näete, et kõik kohtumised on rühmitatud kategooriate kaupa.
  6. Nüüd saate tutvuda rühmaga "Puhkus".
  7. Lõpuks klõpsake rühma päisel "Puhkus" ja seejärel vajutage klahvi "Kustuta".Rühmitage kategooriate järgi ja kustutage kõik pühad
  8. Korraga on eemaldatud kõik olemasolevad puhkused.
  9. Pärast nende kustutamist saate puhkuse uuesti lisada. Esiteks minge jaotisse "Fail" > "Valikud".
  10. Hüpikaknas „Outlooki suvandid” saate lülituda vahekaardile „Kalender”.
  11. Selle vahekaardi alt leiate nupu "Lisa pühad".
  12. Seejärel valige uues dialoogiboksis asukoht, näiteks "Ameerika Ühendriigid" ja vajutage "OK".Lisage uuesti pühad
  13. Lõpuks on pühad taas vaikekalendrisse imporditud.

2. meetod: eemaldage VBA-ga dubleerivad pühad

  1. Kohe alguses vajutage klahvikombinatsiooni Alt + F11.
  2. Järgmisena pääsete Outlooki VBA redaktori aknasse, kus saate avada kasutamata mooduli.
  3. Seejärel kopeerige sellesse moodulisse järgmine VBA kood.
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

VBA kood – eemaldage kiiresti oma Outlooki kalendrist topeltpühad

  1. Lõppkokkuvõttes saate seda makrot proovida.
  • Klõpsake alamprogrammi "RemoveDuplicateHolidays".
  • Seejärel vajutage selle käivitamiseks nuppu F5.
  • Pärast selle lõppemist eemaldatakse kõigist teie Outlooki kalendritest kõik topeltpühad.

Väärtuslike Outlooki andmete hankimine

On vaieldamatu tõsiasi, et ükski programm ei garanteeri, et see on vigade ja korruptsiooni eest kaitstud. Sama kehtib ka Outlooki kohta. Seetõttu peaksite oma Outlooki andmete kaitsmiseks tegema regulaarselt andmetest varukoopiaid. Lisaks peate Outlooki taasteplaani eelnevalt kavandama. Viimaseks, kuid mitte vähemtähtsaks, on mõistlik ette valmistada mainekas parandustööriist, näiteks DataNumen Outlook Repair. See on võimeline Outlooki parandamine probleemid hetkega ja hankige ohustatud failist tagasi maksimaalne Outlooki teave.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastuma Sql Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.