Skip to main content

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

doc fillteáin a chumasc gan dúbailt 1

3. cliceáil uirlisí > tagairtí agus sa dialóg popping, seiceáil Microsoft Scripting Runtime ticbhosca.

doc fillteáin a chumasc gan dúbailt 2 saighead doc ar dheis doc fillteáin a chumasc gan dúbailt 3

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).
doc fillteáin a chumasc gan dúbailt 4

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.
doc fillteáin a chumasc gan dúbailt 5

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.
doc fillteáin a chumasc gan dúbailt 6


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.
doc a chomhdhlúthú agus a bhaint 1 dúblach

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.
doc a chomhdhlúthú agus a bhaint 2 dúblach

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.
doc a chomhdhlúthú agus a bhaint 3 dúblach

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.
doc a chomhdhlúthú agus a bhaint 4 dúblach

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.
doc a chomhdhlúthú agus a bhaint 5 dúblach doc fillteáin a chumasc gan dúbailt 6


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 ProSá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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations