Outlook: Kuinka poistaa päällekkäisiä kalenterikohteita
Joskus kalenterikohteet ovat päällekkäisiä, kun tuomme tapahtumia muista laitteista. Tässä opetusohjelmassa esitellään kaksi erilaista menetelmää kalenterin kaksoiskappaleiden poistamiseksi: yksi poistaa yksitellen, kun kaksoiskappaleita on vähemmän, ja toinen poistaa kaikki kaksoiskappaleet kerralla VBA:n avulla.
Poista kalenterikohteiden kopiot manuaalisesti yksitellen
VBA poistaa päällekkäiset kalenterin kohteet kerralla
Poista kalenterikohteiden kopiot manuaalisesti yksitellen
Jos haluat poistaa päällekkäiset kalenterikohdat yksitellen, sinun on ensin lueteltava ne tietyssä järjestyksessä, jotta kaksoiskappaleet näkyvät selvästi, ja poistettava ne sitten yksitellen.
1. Yleensä kalenteri on "Kalenteri"-näkymässä, aktivoi kalenteri, jonka kaksoiskappaleet haluat poistaa, ja napsauta sitten "Näytä" > "Vaihda näkymää" > "Lista".
Nyt kalenteri on katsottu luettelona.
2. Määritä sitten ehto, jota käytät vertaamaan, jos kohteet ovat päällekkäisiä, oletetaan vertaamaan, jos kohteilla on sama aihe. Napsauta "AIHE" kalenteriluettelossa, jolloin kaikki kohteet, joilla on sama aihe, sijoitetaan yhteen.
3. Nyt voit poistaa kohteet, joilla on sama aihe, yksitellen napsauttamalla kohdetta hiiren kakkospainikkeella ja napsauttamalla "Poista" avautuvasta kontekstivalikosta.
AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA
Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.
Tämä ominaisuus tukee:
- Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
- Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
- Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
- Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
- Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
- Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.
Tämä ominaisuus tukee:
- Älykkäät sähköpostivastaukset
- Optimoitu sisältö
- Avainsanoihin perustuvat luonnokset
- Älykäs sisältölaajennus
- Yhteenveto sähköpostitse
- Monikielinen käännös
Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!
VBA poistaa päällekkäiset kalenterin kohteet kerralla
Tässä esitellään VBA, joka voi poistaa kaikki päällekkäiset kalenterikohteet kalenterikansiosta eri tapauksissa.
1. Lehdistö "Alt" + "F11" näppäimiä ottaaksesi "Microsoft Visual Basic for Applications" -ikkunan käyttöön.
2. Napsauta "Lisää" > "Moduuli" luodaksesi uuden tyhjän moduulin ja kopioi ja liitä alla oleva koodi moduuliin.
VBA: poista kaikki päällekkäiset kalenterikohdat yhdestä tietystä luokasta
'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
Tässä VBA:ssa se poistaa kaikki kopiot "päivämäärästä" tässä luokassa vertaamalla aihetta, sijaintia, runkoa ja luokkaa, voit muuttaa niitä tarpeen mukaan.
3. paina sitten "F5" -näppäintä tai napsauta Suorita suorittaaksesi koodin, näkyviin tulee valintaikkuna "Makrot", valitse "RemoveDuplicateCalendar" ja napsauta "Suorita". 
.
Sitten päällekkäiset kohteet "päivämäärä"-kategoriassa on poistettu.
VBA: poista kaikki päällekkäiset kalenterikohdat luokista
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
Suorita tämä koodi. Kaikki kopiot, jotka ovat samassa aiheessa, paikassa, rungossa tai kategoriassa kussakin luokassa, on poistettu.
Huomautuksia: Yllä VBA toimii kalenterikansio sisältää alikansion.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
