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
- Automatizálja az e-mailezést ezzel Auto CC / BCC, Automatikus továbbítás szabályok szerint; Küld Autómatikus válasz (Out of Office) Exchange szerver nélkül...
- Szerezzen emlékeztetőket BCC figyelmeztetés amikor mindenkinek válaszol, miközben a Titkos másolat listában van, és Emlékeztessen a hiányzó mellékletekre az elfelejtett mellékletekhez...
- Növelje az e-mailek hatékonyságát Válasz (mindenre) mellékletekkel, Üdvözlés vagy dátum és idő automatikus hozzáadása az aláíráshoz vagy a tárgyhoz, Válasz több e-mailre...
- Egyszerűsítse az e-mailezést ezzel E-mailek visszahívása, Melléklet eszközök (Összes tömörítése, Összes automatikus mentése...), Távolítsa el a másolatokatés Gyorsjelentés...
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.
Most a naptárt listaként tekintettük meg.
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.
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.
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.
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 .
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.
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
???? 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 Pro: Kö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.