Outlook: Kako odstraniti podvojene elemente koledarja
Včasih pride do podvojenih elementov koledarja, ko uvažamo dogodke iz drugih naprav. Za odstranitev podvojenih elementov koledarja ta vadnica uvaja dve različni metodi, ena je odstranjevanje enega za drugim, ko je dvojnikov manj, druga pa uporablja VBA za odstranitev vseh dvojnikov hkrati.
Ročno odstranite podvojene elemente koledarja enega za drugim
VBA za odstranitev podvojenih elementov koledarja hkrati
- Avtomatizirajte pošiljanje e-pošte z Samodejno CC / BCC, Samodejno posredovanje naprej po pravilih; poslati Samodejni odgovor (Zven pisarne) brez potrebe po strežniku za izmenjavo ...
- Prejemajte opomnike, kot je Opozorilo pred BCC ko odgovarjate vsem, ko ste na seznamu BCC, in Opomni, ko manjkajo priloge za pozabljene priloge...
- Izboljšajte učinkovitost e-pošte z Odgovori (vsem) s priponkami, Samodejno dodajte pozdrav ali datum in uro v podpis ali zadevo, Odgovorite na več e-poštnih sporočil...
- Poenostavite pošiljanje e-pošte z Odpoklic e-pošte, Orodja za pritrditev (Stisni vse, samodejno shrani vse ...), Odstrani dvojnikein Hitro poročilo...
Ročno odstranite podvojene elemente koledarja enega za drugim
Če želite odstraniti podvojene elemente koledarja enega za drugim, jih morate navesti v določenem vrstnem redu, da si najprej jasno ogledate dvojnike, nato pa jih odstranite enega za drugim.
1. Na splošno je koledar v a Koledar ogled, aktivirajte koledar, za katerega želite odstraniti dvojnike, nato kliknite Poglej > Spremeni pogled > Seznam.
Zdaj je bil koledar viden kot seznam.
2. Nato določite pogoj, ki ga uporabite za primerjavo, če so predmeti podvojeni, pri čemer naj bi primerjali, če imajo predmeti isti predmet. Kliknite PREDMET na seznamu koledarja, potem so vsi elementi z isto temo postavljeni skupaj.
3. Zdaj lahko enega za drugim odstranite predmete, ki imajo isto temo, tako da z desno miškino tipko kliknete element in kliknete Brisanje iz pojavnega kontekstnega menija.
VBA za odstranitev podvojenih elementov koledarja hkrati
Tukaj predstavlja nekaj VBA, ki lahko v različnih primerih odstrani vse podvojene elemente koledarja v mapi koledarja.
1. Pritisnite druga + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli da ustvarite nov prazen modul, nato kopirajte in prilepite spodnjo kodo v modul.
VBA: odstranite vse podvojene elemente koledarja v eni določeni kategoriji
'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 tem VBA bo odstranil vse dvojnike v "Datum” v tej kategoriji s primerjavo teme, lokacije, telesa in kategorije jih lahko po potrebi spremenite.
3. nato pritisnite F5 tipko ali kliknite Zaženi, da zaženete kodo, pogovorno okno Makri izstopi, izberite Odstrani podvojeni koledar in kliknite Run .
Nato so bili podvojeni elementi v kategoriji »datum« odstranjeni.
VBA: odstranite vse podvojene elemente koledarja po kategorijah
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
Zaženite to kodo, vsi dvojniki, ki so na isti temi, lokaciji, telesu, kategoriji v vsaki kategoriji, so bili odstranjeni.
Opombe: Zgoraj VBA deluje v mapi koledarja, vključno s podmapo.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.