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.

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.

nótaí: Os cionn oibríonn VBA i bhfillteán féilire folaíonn sé fofhillteán.

Kutools for Outlook - Tugann sé 100 Gné Ard le Outlook, agus Déan an Obair i bhfad Níos Éasca!

• Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir saincheaptha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
• Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach ceann a fhreagairt má tá do sheoladh ríomhphoist ar liosta BCC; Meabhraigh Nuair a bhíonn Ceangaltáin ar Iarraidh, agus gnéithe meabhrúcháin níos mó ...
• Freagra (Gach) Leis na Ceangaltáin Uile sa chomhrá poist; Freagair go leor Ríomhphost i soicindí; Beannacht Auto Cuir leis nuair a thabharfar freagra; Cuir Dáta leis san ábhar ...
• Uirlisí Ceangail: Bainistigh Gach Ceangaltán i ngach Ríomhphost, Auto Dícheangail, Comhbhrú Gach, Athainmnigh Uile, Sábháil Gach ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe...
• Ríomhphoist Cumhachtacha Junk de réir saincheaptha; Bain Ríomhphoist agus Teagmhálacha Dúblacha... Cuir ar do chumas déanamh níos cliste, níos gasta agus níos fearr in Outlook.

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