2 sredstva za hitro odstranitev podvojenih praznikov v Outlookovem koledarju

Če na isti koledar dvakrat ali večkrat pomotoma dodate iste praznike, boste ugotovili, da je koledar poln podvojenih praznikov. V tem primeru morate želeti odstraniti dvojnike. Ta članek vas bo naučil 2 načinov.

Outlook ima vgrajeno funkcijo za hitro dodajanje praznikov v privzeti koledar. Nedvomno je zelo priročno za uporabnike. Če pa praznike dodate dvakrat ali večkrat po pomoti, bo vaš privzeti koledar napolnjen s podvojenimi prazniki. V nadaljevanju vam bomo predstavili 2 pristopa za hitro odstranjevanje dvojnikov.

1. način: odstranite vse praznike in jih znova dodajte

1. Za začetek zaženite program Outlook.
2. Nato odprite izvorno mapo Koledar.
3. Nato preklopite na zavihek »Pogled« in izberite »Spremeni pogled« > »Seznam«.
4. Po tem morate klikniti gumb »Kategorije« v skupini »Razporeditev«.
5. Nato boste videli, da so vsi sestanki razvrščeni po kategorijah.
6. Zdaj lahko najdete skupino "Počitnice".
7. Na koncu kliknite glavo skupine "Praznik" in nato pritisnite tipko "Izbriši".
8. Naenkrat so bili odstranjeni vsi obstoječi prazniki.
9. Ko jih izbrišete, lahko znova dodate praznik. Najprej pojdite na »Datoteka« > Možnosti«.
10. V pojavnem oknu »Outlookove možnosti« lahko preklopite na zavihek »Koledar«.
11. Pod tem zavihkom boste lahko našli gumb »Dodaj praznike«.
12. Nato v novem pogovornem oknu izberite lokacijo, na primer »Združene države« in pritisnite »V redu«.
13. Sčasoma so bili prazniki spet uvoženi v privzeti koledar.

2. način: odstranite podvojene praznike z VBA

1. Na samem začetku pritisnite tipki "Alt + F11".
2. Nato boste dostopali do okna urejevalnika Outlook VBA, v katerem lahko odprete neuporabljen modul.
3. Nato v ta modul kopirajte naslednjo kodo 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. Navsezadnje lahko poskusite ta makro.

• Kliknite podprogram »RemoveDuplicateHolidays«.
• Nato pritisnite tipko F5, da ga zaženete.
• Ko se konča, so odstranjeni vsi podvojeni prazniki v vseh Outlookovih koledarjih.

Pridobite dragocene Outlookove podatke

Nedvomno dejstvo je, da noben program ne more zagotoviti, da je odporen na napake in poškodbe. Enako velja za Outlook. Da bi zaščitili svoje Outlookove podatke, je bolje, da redno izdelujete varnostne kopije podatkov. Poleg tega morate načrt za obnovitev Outlooka načrtovati vnaprej. Nenazadnje je smotrno pripraviti ugledno orodje za popravke, kot je npr DataNumen Outlook Repair. To zmore popravilo Outlook težave v hipu in pridobite nazaj največ Outlookovih podatkov iz ogrožene datoteke.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z opomore Sql Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com