Outlook: Cum să eliminați elementele duplicat din calendar
Uneori, există câteva elemente de calendar duplicat atunci când importăm evenimente de pe alte dispozitive. Pentru a elimina elementele duplicate din calendar, acest tutorial introduce două metode diferite, una este eliminarea una câte una când duplicatele sunt mai puține, alta folosește VBA pentru a elimina toate duplicatele simultan.
Eliminați manual elementele duplicate ale calendarului unul câte unul
VBA pentru a elimina elementele de calendar duplicate simultan
- Automatizați e-mailurile cu Auto CC / BCC, Auto înainte prin reguli; trimite Răspuns automat (În afara biroului) fără a necesita un server de schimb...
- Primiți mementouri ca Avertisment BCC când răspundeți la toate în timp ce vă aflați în lista BCC și Amintiți-vă când lipsesc atașamentele pentru atașamente uitate...
- Îmbunătățiți eficiența e-mailului cu Răspunde (toate) cu atașamente, Adăugați automat salutul sau data și ora în semnătură sau subiect, Răspunde la mai multe e-mailuri...
- Simplificați e-mailurile cu Rechemare e-mailuri, Instrumente de atașare (Comprimați toate, Salvați automat toate...), Eliminați duplicatele, și Raport rapid...
Eliminați manual elementele duplicate ale calendarului unul câte unul
Pentru a elimina elementele duplicate ale calendarului unul câte unul, trebuie să le enumerați într-o anumită ordine pentru a vizualiza în mod clar duplicatele, mai întâi, apoi le eliminați unul câte unul.
1. În general, calendarul este în a Calendar vizualizați, activați calendarul pe care doriți să eliminați duplicatele, apoi faceți clic Vizualizare > Schimbă privirea > Listă.
Acum calendarul a fost vizualizat ca o listă.
2. Apoi specificați o condiție pe care o utilizați pentru a compara dacă articolele sunt duplicate, presupunând că se compară dacă articolele au același subiect. Clic SUBIECT în lista calendarului, apoi toate articolele cu același subiect sunt plasate împreună.
3. Acum puteți elimina articolele care au același subiect unul câte unul făcând clic dreapta pe element și făcând clic Șterge din meniul contextual care apare.
VBA pentru a elimina elementele de calendar duplicate simultan
Aici sunt prezentate câteva VBA care pot elimina toate elementele de calendar duplicat dintr-un folder de calendar în cazuri diferite.
1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module pentru a crea un nou modul gol, apoi copiați și inserați codul de mai jos în modul.
VBA: eliminați toate elementele de calendar duplicat dintr-o anumită categorie
'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
În acest VBA, va elimina toate duplicatele din „data” această categorie comparând subiectul, locația, corpul și categoria, le puteți modifica după cum doriți.
3. apoi apăsați F5 tasta sau faceți clic pe Run pentru a rula codul, un dialog Macrocomenzi iese, alege Eliminați DuplicateCalendar și faceți clic Alerga .
Apoi elementele duplicat din categoria „data” au fost eliminate.
VBA: eliminați toate elementele de calendar duplicat din categorii
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
Rulați acest cod, toate duplicatele care sunt la același subiect, locație, corp, categorie din fiecare categorie au fost eliminate.
notițe: De mai sus VBA funcționează în folderul calendar include subfolder.
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.