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

Outlook: Az ismétlődő naptárelemek eltávolítása

Néha ismétlődő naptárelemek jelennek meg, amikor eseményeket importálunk más eszközökről. Az ismétlődő naptárelemek eltávolításához ez az oktatóanyag két különböző módszert mutat be: az egyik az egyenkénti eltávolítás, amikor kevesebb az ismétlődés, a másik pedig VBA használatával távolítja el az összes ismétlődést egyszerre.

Manuálisan távolítsa el a duplikált naptárelemeket egyenként

VBA a duplikált naptárelemek egyidejű eltávolításához

Office fül - Füles szerkesztés és böngészés engedélyezése az Office-ban, és a munka sokkal könnyebb ...
Kutools for Outlook - 100 hatékony speciális funkciót hoz a Microsoft Outlook programba
  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail szabályok szerint; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - mutasson üzenetet, amikor megpróbálja megválaszolni az összeset, ha az Ön e-mail címe szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (összes) az összes melléklettel a levelezési beszélgetésben; Válaszoljon egyszerre sok e-mailt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum és idő automatikus hozzáadása a tárgyhoz ...
  • Melléklet eszközök: Automatikus leválasztás, Összes tömörítése, Átnevezés, Automatikus mentés ... Gyorsjelentés, A kiválasztott levelek megszámlálása, Távolítsa el az ismétlődő leveleket és névjegyeket ...
  • Több mint 100 speciális funkcióval rendelkezik megoldja a legtöbb problémáját az Outlook 2010-2019-ben és a 365-ben. A teljes funkciók 60 napos ingyenes próbaidőszak.

Manuálisan távolítsa el a duplikált naptárelemeket egyenként

 

A duplikált naptárelemek egyenkénti eltávolításához először listáznia kell azokat egy meghatározott sorrendben, hogy jól látható legyen az ismétlődés, majd egyesével távolítsa el őket.

1. Általában a naptár a Naptár nézetben, aktiválja azt a naptárt, amelyről eltávolítani szeretné az ismétlődéseket, majd kattintson a gombra Megnézem > Válts nézőpontot > Lista.

doc duplikált naptárelemek eltávolítása 1

Most a naptárt listaként tekintettük meg.

doc duplikált naptárelemek eltávolítása 1

doc duplikált naptárelemek eltávolítása 1

2. Ezután adjon meg egy feltételt, amelyet az összehasonlításhoz használ, ha az elemek ismétlődőek, feltételezve, hogy összehasonlítja, ha az elemek azonos tárgyúak. Kattintson TANTÁRGY a naptárlistában, akkor az összes azonos tárgyú tétel egybe kerül.

doc duplikált naptárelemek eltávolítása 1

3. Most egyenként eltávolíthatja az azonos tárgyú elemeket, ha jobb gombbal rákattint az elemre, majd töröl a felbukkanó helyi menüből.

doc duplikált naptárelemek eltávolítása 1


VBA a duplikált naptárelemek egyidejű eltávolításához

 

Itt bemutatunk néhány VBA-t, amely különböző esetekben eltávolíthatja a naptármappákból az összes ismétlődő naptárelemet.

1. nyomja meg más + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok egy új üres modul létrehozásához, majd másolja ki és illessze be az alábbi kódot a modulba.

VBA: távolítsa el az összes ismétlődő naptárelemet egy adott kategóriában

'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

Ebben a VBA-ban eltávolítja az összes ismétlődést a „adat” ezt a kategóriát a tárgy, helyszín, törzs és kategória összehasonlításával igény szerint módosíthatja.

doc duplikált naptárelemek eltávolítása 1

3. majd nyomja meg F5 gombot, vagy kattintson a Futtatás gombra a kód futtatásához, egy párbeszédpanelhez makrók kiugrik, válassz RemoveDuplicateCalendar és kattintson futás doc duplikált naptárelemek eltávolítása 1 .

doc duplikált naptárelemek eltávolítása 1

Ezután a „dátum” kategória ismétlődő elemeit eltávolítottuk.

VBA: távolítsa el az összes ismétlődő naptárelemet a kategóriák között

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

Futtassa ezt a kódot, és minden kategórián belül eltávolítottuk az azonos tárgyhoz, helyhez, törzshöz vagy kategóriához tartozó ismétlődéseket.

doc duplikált naptárelemek eltávolítása 1

doc duplikált naptárelemek eltávolítása 1

Megjegyzések: A VBA felett működik, a naptármappa almappát tartalmaz.


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0  Karakterek
Javasolt helyek