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

Autor: Sun Naposledy změněno: 2024-09-03

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

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 Zobrazit > Změnit pohled > Seznam.

kroky k ručnímu odstranění duplicitních položek kalendáře jednu po druhé

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.

AI Mail Assistant v aplikaci Outlook: Chytřejší odpovědi, jasnější komunikace (kouzlo na jedno kliknutí!) UVOLNIT

Zjednodušte své každodenní úkoly Outlooku pomocí AI Mail Assistant od Kutools pro Outlook. Tento výkonný nástroj se učí z vašich minulých e-mailů, aby nabídl inteligentní a přesné odpovědi, optimalizoval obsah vašich e-mailů a pomohl vám bez námahy navrhovat a upravovat zprávy.

Tato funkce podporuje:

Chytré odpovědi: Získejte odpovědi vytvořené z vašich minulých konverzací – přizpůsobené, přesné a připravené k použití.
Vylepšený obsah: Automaticky upravte text e-mailu tak, aby byl srozumitelný a účinný.
Skládání bez námahy: Stačí zadat klíčová slova a nechat AI, aby se postarala o zbytek, s několika styly psaní.
Inteligentní rozšíření: Rozšiřte své myšlenky pomocí kontextových návrhů.
Shrnutí: Získejte okamžitě stručné přehledy dlouhých e-mailů.
Globální dosah: Snadno překládejte své e-maily do jakéhokoli jazyka.

Tato funkce podporuje:

Chytré e-mailové odpovědi
Optimalizovaný obsah
Koncepty založené na klíčových slovech
Inteligentní rozšíření obsahu
Emailová sumarizace
Vícejazyčný překlad

Nejlepší ze všeho je, že tato funkce je zcela uvolnit navždy! Nečekej —stáhněte si AI Mail Assistant nyní a užívejte si!

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" tuto kategorii porovnáním předmětu, umístění, těla a kategorie můžete změnit podle potřeby.

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

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.

Pozor: Výše VBA funguje ve složce kalendáře obsahuje podsložku.

Nejlepší nástroje pro produktivitu v kanceláři

Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!

Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!

🤖 Kutools AI : Využívá pokročilou technologii umělé inteligence k snadnému zpracování e-mailů, včetně odpovídání, shrnutí, optimalizace, rozšiřování, překládání a vytváření e-mailů.

???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...

📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...

Okamžitě odemkněte Kutools pro Outlook jediným kliknutím –trvale volný. Nečekejte, stáhněte si nyní a zvyšte svou efektivitu!

Seznam funkcí Kutools pro Outlook Stáhněte si bezplatnou verzi Upgradujte na Professional