Note: The other languages of the website are Google-translated. Back to English

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 Tabbed san Oifig, agus Déan an Obair i bhfad Níos Éasca ...
Kutools for Outlook - Tugann sé 100 Gné Ardchumhachta Cumhachtacha chuig Microsoft Outlook
  • Auto CC / BCC de réir rialacha agus ríomhphost á sheoladh; Auto Ar Aghaidh Ríomhphoist Il de réir rialacha; Freagra Auto gan freastalaí malairte, agus gnéithe níos uathoibríoch ...
  • Rabhadh BCC - taispeáin teachtaireacht nuair a dhéanann tú iarracht gach rud 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 ag an am céanna; Beannacht Auto Cuir leis nuair a thabharfar freagra; Dáta agus Am Auto Cuir isteach san ábhar ...
  • Uirlisí Ceangail: Auto Detach, Compress All, Rename All, Auto Save All ... Tuarascáil Thapa, Líon Ríomhphoist Roghnaithe, Bain Ríomhphoist agus Teagmhálacha Dúblacha ...
  • Déanfaidh níos mó ná 100 gné chun cinn an chuid is mó de do chuid fadhbanna a réiteach in Outlook 2010-2019 agus 365. Gnéithe iomlána triail saor in aisce 60 lá.

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.

doc bain míreanna féilire dúblacha 1

Anois tá an féilire le feiceáil mar liosta.

doc bain míreanna féilire dúblacha 1

doc bain míreanna féilire dúblacha 1

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.

doc bain míreanna féilire dúblacha 1

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.

doc bain míreanna féilire dúblacha 1


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.

doc bain míreanna féilire dúblacha 1

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 doc bain míreanna féilire dúblacha 1 .

doc bain míreanna féilire dúblacha 1

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.

doc bain míreanna féilire dúblacha 1

doc bain míreanna féilire dúblacha 1

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.
kutools lámhaigh dearcadh kutools tab 1180x121
kutools lámhaigh dearcadh kutools móide cluaisín 1180x121
 
Sórtáil tuairimí de réir
Comments (0)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0  Carachtair
Suímh Molta