Conas dhá fhillteán a chumasc gan dúbailt i bhfillteán amháin in Outlook?
In Outlook, b'fhéidir go bhfuil go leor cuntais ríomhphoist agat le go leor fillteáin, i gcásanna áirithe, ba mhaith leat dhá fhillteán a chumasc i gceann amháin agus na míreanna dúblacha a bhaint. Conas is féidir leat an post seo a réiteach go tapa? San Airteagal seo, tugann mé isteach cód VBA chun cabhrú leat é a láimhseáil chomh tapa agus is féidir in Outlook.
Cumaisc dhá fhillteán gan dúbailt isteach i gceann de réir cód VBA
Cumaisc fillteáin iolracha agus bain míreanna dúblacha le Kutools le haghaidh Outlook
Cumaisc dhá fhillteán gan dúbailt isteach i gceann de réir cód VBA
Chun dhá fhillteán a chumasc i gceann amháin agus na míreanna dúblacha a bhaint, is féidir leat é a láimhseáil le cód VBA mar na céimeanna seo a leanas:
1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog
2. Cliceáil faoi dhó ag ThisOutlookSession ó Project1 sa phána clé, ansin cóipeáil agus greamaigh thíos an cód go dtí an script ar dheis.
VBA: Cumaisc dhá fhillteán gan dúbailt
Sub MergeOutlookFolders_WithoutDuplicates()
'UpdatebyExtendoffice20180521
Dim xSourceFolder As Outlook.Folder
Dim xTargetFolder As Outlook.Folder
Dim xCount, i As Long
Dim xItem As Object
Dim xSourceItem As Object
Dim xTargetItem As Object
Dim xDictionary As Scripting.Dictionary 'Object
Dim xStr As String
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
Set xSourceFolder = Application.Session.PickFolder
Set xTargetFolder = Application.Session.PickFolder
xCount = 0
If xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Then
MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
For i = xSourceFolder.Items.Count To 1 Step -1
Set xSourceItem = xSourceFolder.Items.Item(i)
xSourceItem.Move xTargetFolder
Next
For i = xTargetFolder.Items.Count To 1 Step -1
Set xTargetItem = xTargetFolder.Items.Item(i)
Select Case xTargetItem.Class
Case olMail
With xTargetItem
xStr = .Subject & .Body & .SentOn
End With
Case olAppointment
With xTargetItem
xStr = .Subject & .Start & .Duration & .Location & .Body
End With
Case olContact
With xTargetItem
xStr = .FullName & .Email1Address & .Email2Address & .Email3Address
End With
Case olTask
With xTargetItem
xStr = .Subject & .StartDate & .DueDate & .Body
End With
End Select
If xDictionary.Exists(xStr) = True Then
xTargetItem.Delete
xCount = xCount + 1
Else
xDictionary.Add xStr, True
End If
Next i
If xCount <> 0 Then
MsgBox xCount & " duplicates removed when merging!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub
3. cliceáil uirlisí > tagairtí agus sa dialóg popping, seiceáil Microsoft Scripting Runtime ticbhosca.
4. cliceáil OK. Anois brúigh F5 eochair chun an cód a rith. Tagann dialóg amach chun a mheabhrú duit an chéad fhillteán is mian leat a chumasc a roghnú (tabhair faoi deara: bainfear na míreanna go léir sa chéad fhillteán tar éis cumasc leis an dara fillteán).
5. cliceáil OK, sa dara dialóg popping, roghnaigh an dara fillteán is mian leat a chur i gcomparáid agus a chumasc leis.
6. cliceáil OK, anois, bogfar na míreanna go léir sa chéad fhillteán go dtí an dara fillteán, agus baintear na cinn dhúbailt freisin.
Cumaisc fillteáin iolracha agus bain míreanna dúblacha le Kutools le haghaidh Outlook
Mura bhfuil tú eolach ar chód VBA, déan iarracht é a úsáid Kutools le haghaidh Outlook, a handy add-in, lena Fillteáin Chomhdhlúite agus Ríomhphoist Dúblacha fóntais ar féidir leo an post seo a láimhseáil go héasca agus go tapa.
Kutools for Outlook , Áirítear 100 + gnéithe agus uirlisí cumhachtacha do Microsoft Outlook 2016, 2013, 2010 agus Office 365. |
||
Suiteáil saor in aisce Kutools for Outlook, agus ansin déan mar atá thíos na céimeanna:
Cumaisc fillteáin iolracha
1. cliceáil Kutools Plus > Fillteáin Chomhdhlúite, ansin sa Cumaisc fillteáin iolracha i gceann amháin dialóg, cliceáil Cuir chun na fillteáin a chur isteach sa liosta a dhéanfar a chumasc, roghnaigh fillteán mar an fillteán sprice.
2. cliceáil OK > OK. Anois tá na míreanna go léir sna fillteáin roghnaithe cumasc i bhfillteán ar leith amháin.
Bain míreanna dúblacha
3. cliceáil Kutools > Scrios Dúblach > Ríomhphoist Dúblacha. Ansin sa Teachtaireachtaí dúblacha dialóg, seiceáil an fillteán is mian leat a bhaint dúblaigh.
4. cliceáil Ar Aghaidh, I Socruithe Teachtaireachtaí Dúblach dialóg, sonraigh na critéir a úsáideann tú chun ríomhphoist a chur i gcomparáid, ansin seiceáil Scrios teachtaireachtaí dúblacha rogha agus roghnaigh Déan comparáid le haghaidh teachtaireachtaí dúblacha laistigh d'fhillteán amháin.
5. cliceáil Ar Aghaidh > Ar Aghaidh, tá na ríomhphoist dhúbailt scagtha. Cliceáil Scrios teachtaireacht dhúbailt cnaipe> OK chun na ríomhphoist dúblacha a bhaint go rathúil.
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do 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 go héasca / 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 / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Í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á ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.