Outlook: Kako odstraniti podvojene elemente koledarja

Včasih pride do podvojenih elementov koledarja, ko uvažamo dogodke iz drugih naprav. Za odstranitev podvojenih elementov koledarja ta vadnica uvaja dve različni metodi, ena je odstranjevanje enega za drugim, ko je dvojnikov manj, druga pa uporablja VBA za odstranitev vseh dvojnikov hkrati.

Ročno odstranite podvojene elemente koledarja enega za drugim

VBA za odstranitev podvojenih elementov koledarja hkrati

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo

Preberite več ...Prenos ...

Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost

Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...

Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

Preberite več ...Prenos ...

Ročno odstranite podvojene elemente koledarja enega za drugim

Če želite odstraniti podvojene elemente koledarja enega za drugim, jih morate navesti v določenem vrstnem redu, da si najprej jasno ogledate dvojnike, nato pa jih odstranite enega za drugim.

1. Na splošno je koledar v a Koledar ogled, aktivirajte koledar, za katerega želite odstraniti dvojnike, nato kliknite Poglej > Spremeni pogled > Seznam.

Zdaj je bil koledar viden kot seznam.

2. Nato določite pogoj, ki ga uporabite za primerjavo, če so predmeti podvojeni, pri čemer naj bi primerjali, če imajo predmeti isti predmet. Kliknite PREDMET na seznamu koledarja, potem so vsi elementi z isto temo postavljeni skupaj.

3. Zdaj lahko enega za drugim odstranite predmete, ki imajo isto temo, tako da z desno miškino tipko kliknete element in kliknete Brisanje iz pojavnega kontekstnega menija.

VBA za odstranitev podvojenih elementov koledarja hkrati

Tukaj predstavlja nekaj VBA, ki lahko v različnih primerih odstrani vse podvojene elemente koledarja v mapi koledarja.

1. Pritisnite druga + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli da ustvarite nov prazen modul, nato kopirajte in prilepite spodnjo kodo v modul.

VBA: odstranite vse podvojene elemente koledarja v eni določeni kategoriji

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

V tem VBA bo odstranil vse dvojnike v "Datum” v tej kategoriji s primerjavo teme, lokacije, telesa in kategorije jih lahko po potrebi spremenite.

3. nato pritisnite F5 tipko ali kliknite Zaženi, da zaženete kodo, pogovorno okno Makri izstopi, izberite Odstrani podvojeni koledar in kliknite Run .

Nato so bili podvojeni elementi v kategoriji »datum« odstranjeni.

VBA: odstranite vse podvojene elemente koledarja po kategorijah

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Zaženite to kodo, vsi dvojniki, ki so na isti temi, lokaciji, telesu, kategoriji v vsaki kategoriji, so bili odstranjeni.