Outlook: Jak odstranit duplicitní položky kalendáře

Někdy se při importu událostí z jiných zařízení vyskytnou nějaké duplicitní položky kalendáře. Chcete-li odstranit duplicitní položky kalendáře, tento tutoriál představuje dvě různé metody, jednou je odstranění po jedné, když je duplikátů méně, a další pomocí VBA k odstranění všech duplikátů najednou.

Ručně odstraňte duplicitní položky kalendáře jednu po druhé

VBA k odstranění duplicitních položek kalendáře najednou

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou

Čtěte více...Stáhnout ...

Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu

Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...

Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

Čtěte více...Stáhnout ...

Ručně odstraňte duplicitní položky kalendáře jednu po druhé

Chcete-li odstranit duplicitní položky kalendáře jednu po druhé, musíte je nejprve uvést v určitém pořadí, aby bylo možné duplikáty jasně zobrazit, a poté je jednu po druhé odstranit.

1. Obecně je kalendář v a Kalendář zobrazit, aktivujte kalendář, jehož duplikáty chcete odstranit, a poté klikněte Pohled > Změnit pohled > Seznam.

Nyní je kalendář zobrazen jako seznam.

2. Poté zadejte podmínku, kterou použijete k porovnání, zda jsou položky duplicitní, předpokládejme k porovnání, zda mají položky stejný předmět. Klikněte PŘEDMĚT v seznamu kalendářů se pak všechny položky se stejným předmětem umístí dohromady.

3. Nyní můžete odstranit položky, které mají stejný předmět, jednu po druhé kliknutím pravým tlačítkem myši na položku a kliknutím Vymazat z vyskakovací kontextové nabídky.

VBA k odstranění duplicitních položek kalendáře najednou

Zde představuje některé VBA, které může v různých případech odstranit všechny duplicitní položky kalendáře ve složce kalendáře.

1. lis Další + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul vytvořte nový prázdný modul, poté zkopírujte a vložte níže uvedený kód do modulu.

VBA: odstraňte všechny duplicitní položky kalendáře v jedné konkrétní kategorii

'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 tomto VBA odstraní všechny duplikáty v „datum” této kategorie porovnáním předmětu, umístění, těla a kategorie, můžete je změnit podle potřeby.

3. poté stiskněte F5 nebo klikněte na Spustit pro spuštění kódu, dialogové okno makra vyskočí, vyberte si RemoveDuplicateCalendar a klepněte na tlačítko Běh .

Poté byly duplicitní položky v kategorii „datum“ odstraněny.

VBA: odstraňte všechny duplicitní položky kalendáře napříč kategoriemi

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

Spusťte tento kód, všechny duplikáty, které jsou ve stejném předmětu, umístění, těle, kategorii v každé kategorii, byly odstraněny.