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

Cluaisín Oifige - Cumasaigh Eagarthóireacht agus Brabhsáil Tábáilte i Microsoft Office, Ag Cur le hObair

Leigh Nios mo...Íoslódáil ...

Kutools le haghaidh Outlook - Treisiú Outlook le 100+ Gnéithe Casta le haghaidh Éifeachtúlacht Superior

Uathoibriú ríomhphost le Auto CC / BCC, Auto Ar Aghaidh le rialacha; seol Freagra Auto (As Oifig) gan freastalaí malartaithe a bheith ag teastáil...
Faigh meabhrúcháin cosúil le Rabhadh BCC nuair a thugann tú freagra ar gach duine agus tú ar an liosta BCC, agus Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh le haghaidh ceangaltán dearmadta...
Feabhas a chur ar éifeachtacht ríomhphoist le Freagra (Gach) Le Ceangaltáin, Auto Cuir Beannacht nó Dáta & Am isteach i Síniú nó Ábhar, Freagair Ríomhphoist Il...
Sruthlínigh ríomhphost le Ríomhphoist a Athghairm, Uirlisí Ceangail (Comhbhrúigh Uile, Sábháil Uile...), Bain Dúblaigh, agus Tuarascáil Thapa...

Treisigh do Outlook 2021 - 2010 nó Outlook 365 leis na hardghnéithe seo. Bain sult as triail chuimsitheach 60-lá saor in aisce agus ardaigh do thaithí ríomhphoist!

Leigh Nios mo...Íoslódáil ...

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.

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 in “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.