Outlook: Conas míreanna féilire dúblacha a bhaint
Uaireanta, bíonn roinnt míreanna dúblacha féilire ann nuair a dhéanaimid imeachtaí a allmhairiú ó ghléasanna eile. Chun na míreanna dúblacha féilire a bhaint, tugann an teagasc seo isteach dhá mhodh éagsúla, tá ceann ag baint ceann ar cheann nuair a bhíonn na dúbailtí níos lú, tá ceann eile ag baint úsáide as VBA chun gach dúbailt a bhaint ag an am céanna.
Bain míreanna féilire dúblacha de láimh ceann ar cheann
VBA chun míreanna féilire dúblacha a bhaint ag an am céanna
Bain míreanna féilire dúblacha de láimh ceann ar cheann
Chun míreanna féilire dúblacha a bhaint ceann ar cheann, ní mór duit iad a liostú in ord sonrach chun na dúblaigh a fheiceáil go soiléir ar dtús, ansin bain amach iad ceann ar cheann.
1. Go ginearálta, tá an féilire i a féilire amharc, gníomhaigh an féilire is mian leat a dhúbailt a bhaint, ansin cliceáil Amharc > Athraigh Amharc > liosta.
Anois tá an féilire le feiceáil mar liosta.
2. Ansin sonraigh coinníoll a úsáideann tú chun comparáid a dhéanamh má tá na míreanna dúblach, ag glacadh le comparáid a dhéanamh má tá an t-ábhar céanna ag na míreanna. Cliceáil ÁBHAR sa liosta féilire, ansin cuirtear gach mír leis an ábhar céanna le chéile.
3. Anois is féidir leat na míreanna a bhfuil an t-ábhar céanna acu a bhaint ceann ar cheann trí chliceáil ar an mír ar dheis agus cliceáil Scrios ón roghchlár comhthéacs popping.
Cúntóir Ríomhphoist AI in Outlook: Freagraí níos Cliste, Cumarsáid níos soiléire (draíocht aon-cliceáil!) SAOR
Sruthlaigh do thascanna Outlook laethúla leis an Cúntóir Mail AI ó Kutools le haghaidh Outlook. Foghlaimíonn an uirlis chumhachtach seo ó do ríomhphoist roimhe seo chun freagraí cliste agus cruinne a thairiscint, chun ábhar do ríomhphoist a bharrfheabhsú, agus chun cabhrú leat teachtaireachtaí a dhréachtú agus a fheabhsú gan stró.
Tacaíonn an ghné seo le:
- Freagraí Cliste: Faigh freagraí ó do chomhráite san am a chuaigh thart - in oiriúint, beacht, agus réidh le dul.
- Ábhar Feabhsaithe: Déan do théacs ríomhphoist a bheachtú go huathoibríoch ar mhaithe le soiléireacht agus tionchar.
- Comhdhéanamh gan stró: Just a chur ar fáil eochairfhocail, agus lig AI láimhseáil an chuid eile, le stíleanna scríbhneoireachta iolracha.
- Eisínteachtaí Chliste: Leathnaigh do chuid smaointe le moltaí atá feasach ar an gcomhthéacs.
- Achoimre: Faigh forbhreathnú gonta ar ríomhphoist fhada láithreach.
- Global Reach: Aistrigh do ríomhphoist go teanga ar bith gan stró.
Tacaíonn an ghné seo le:
- Freagraí ríomhphoist cliste
- Ábhar optamaithe
- Dréachtanna bunaithe ar eochairfhocail
- Síneadh ábhar Chliste
- Achoimre ríomhphoist
- Aistriúchán ilteangach
Is fearr ar fad, tá an ghné seo go hiomlán saor go deo! Ná fan -íoslódáil Cúntóir Ríomhphoist AI anois agus bain sult as!
VBA chun míreanna féilire dúblacha a bhaint ag an am céanna
Tugtar isteach anseo roinnt VBA ar féidir leo gach mír fhéilire dúblach a bhaint i bhfillteán féilire i gcásanna éagsúla.
1. Brúigh Eile + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil chun modúl bán nua a chruthú, ansin cóipeáil agus greamaigh an cód thíos leis an modúl.
VBA: bain gach mír dúblach féilire in aon chatagóir ar leith
'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
Sa VBA seo, bainfidh sé gach dúblach i "sonraí" an chatagóir seo trí chomparáid a dhéanamh idir an t-ábhar, an suíomh, an comhlacht agus an chatagóir, is féidir leat iad a athrú de réir mar is gá duit.
3. ansin brúigh F5 eochair nó cliceáil Rith chun an cód a rith, dialóg Macraí pop amach, roghnaigh BainDuplicateCalendar agus cliceáil Rith 
.
Ansin baineadh na míreanna dúblacha sa chatagóir "dáta".
VBA: bain gach mír fhéilire dúblach thar chatagóirí
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
Rith an cód seo, tá gach dúblach atá ag an ábhar céanna, suíomh, comhlacht, catagóir i ngach catagóir bainte.
nótaí: Os cionn oibríonn VBA i bhfillteán féilire folaíonn sé fofhillteán.
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
