2 Priemonės greitai pašalinti pasikartojančias šventes iš „Outlook“ kalendoriaus

Jei netyčia į tą patį kalendorių įtrauksite tas pačias šventes du kartus ar daugiau kartų, pamatysite, kad kalendorius pripildytas pasikartojančių švenčių. Šiuo atveju turite norėti pašalinti dublikatus. Dabar šis straipsnis išmokys jus 2 būdais.

„Outlook“ turi integruotą funkciją, leidžiančią greitai įtraukti šventes į numatytąjį kalendorių. Tai neabejotinai gana patogu vartotojams. Tačiau jei per klaidą du kartus ar daugiau kartų pridėsite šventes, numatytasis kalendorius bus užpildytas pasikartojančiomis švenčių dienomis. Toliau mes jums pristatysime 2 būdus, kaip greitai pašalinti dublikatus.

1 būdas: pašalinkite visas šventes ir pridėkite jas dar kartą

1. Į start su, paleiskite „Outlook“ programą.
2. Tada eikite į šaltinio kalendoriaus aplanką.
3. Tada perjunkite į skirtuką „Rodinys“ ir pasirinkite „Keisti rodinį“ > „Sąrašas“.
4. Po to turėtumėte spustelėti mygtuką „Kategorijos“, esantį grupėje „Sutvarkymas“.
5. Tada pamatysite, kad visi susitikimai buvo sugrupuoti pagal kategorijas.
6. Dabar galite sužinoti grupę „Atostogos“.
7. Galiausiai spustelėkite grupės antraštę „Atostogos“ ir paspauskite klavišą „Ištrinti“.
8. Iš karto pašalintos visos esamos šventės.
9. Ištrynę juos, galite iš naujo pridėti atostogas. Pirmiausia eikite į „Failas“ > „Parinktys“.
10. Iššokančiajame lange „Outlook parinktys“ galite pereiti į skirtuką „Kalendorius“.
11. Šiame skirtuke galėsite rasti mygtuką „Pridėti šventes“.
12. Tada naujame dialogo lange pasirinkite vietą, pvz., „Jungtinės Valstijos“ ir paspauskite „Gerai“.
13. Galiausiai šventės vėl buvo importuotos į numatytąjį kalendorių.

2 būdas: pašalinkite pasikartojančias šventes naudodami VBA

1. Pačioje pradžioje paspauskite klavišų kombinaciją „Alt + F11“.
2. Tada pasieksite „Outlook VBA“ rengyklės langą, kuriame galėsite atidaryti nenaudojamą modulį.
3. Vėliau į šį modulį nukopijuokite šį VBA kodą.

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. Galiausiai galite išbandyti šią makrokomandą.

• Spustelėkite paprogramę „RemoveDuplicateHolidays“.
• Tada paspauskite klavišą F5, kad paleistumėte.
• Kai jis bus baigtas, visos pasikartojančios šventės iš visų „Outlook“ kalendorių pašalinamos.

Gaukite vertingų Outlook duomenų

Neabejotina, kad jokia programa negali garantuoti, kad ji bus apsaugota nuo klaidų ir sugadinimo. Tas pats pasakytina ir apie „Outlook“. Todėl, norėdami apsaugoti „Outlook“ duomenis, turėtumėte reguliariai daryti atsargines duomenų kopijas. Be to, turite iš anksto suplanuoti „Outlook“ atkūrimo planą. Paskutinis, bet ne mažiau svarbus dalykas yra tai, kad protinga paruošti patikimą taisymo įrankį, pvz DataNumen Outlook Repair. Tai sugeba pataisyti Outlook akimirksniu išspręskite problemas ir susigrąžinkite maksimalius „Outlook“ duomenis iš pažeisto failo.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atsigauti Sql Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com