Ugrás a tartalomra

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

Iroda lap – Engedélyezze a lapos szerkesztést és böngészést a Microsoft Office-ban, így a munka egyszerűvé válik
Kutools for Outlook – Növelje az Outlookot 100+ speciális funkcióval a kiemelkedő hatékonyság érdekében
Növelje Outlook 2021–2010 vagy Outlook 365 verzióját ezekkel a speciális funkciókkal. Élvezze az átfogó 60 napos ingyenes próbaverziót, és fokozza az e-mailezési élményt!

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.


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sadly neither of these work
This comment was minimized by the moderator on the site
I have tested the code and both of them work, What is your problem?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations