Note: The other languages of the website are Google-translated. Back to English
English English

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

Záložka Office - Povolte úpravy a procházení záložkami v Office a mnohem usnadněte práci ...
Kutools pro Outlook - přináší do aplikace Microsoft Outlook 100 výkonných pokročilých funkcí
  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle pravidel; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem, pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (vše) se všemi přílohami v poštovní konverzaci; Odpovězte na mnoho e-mailů najednou; Automatické přidání pozdravu při odpovědi; Automatické přidání data a času do předmětu ...
  • Nástroje pro připojení: Auto Detach, Compress All, Rename All, Auto Save All ... Rychlá zpráva, Počet vybraných e-mailů, Odebrat duplicitní e-maily a kontakty ...
  • Více než 100 pokročilých funkcí bude vyřešit většinu vašich problémů v Outlooku 2010–2019 a 365. Kompletní funkce 60denní bezplatná zkušební verze.

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.

doc odstranit duplicitní položky kalendáře 1

Nyní je kalendář zobrazen jako seznam.

doc odstranit duplicitní položky kalendáře 1

doc odstranit duplicitní položky kalendáře 1

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.

doc odstranit duplicitní položky kalendáře 1

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.

doc odstranit duplicitní položky kalendáře 1


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.

doc odstranit duplicitní položky kalendáře 1

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 doc odstranit duplicitní položky kalendáře 1 .

doc odstranit duplicitní položky kalendáře 1

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.

doc odstranit duplicitní položky kalendáře 1

doc odstranit duplicitní položky kalendáře 1

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


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění