Sut i uno dau ffolder heb ddyblygu i mewn i un ffolder yn Outlook?

Yn Outlook, efallai y bydd gennych lawer o gyfrifon e-bost gyda llawer o ffolderau, mewn rhai achosion, rydych chi am uno dau ffolder yn un a chael gwared ar yr eitemau dyblyg. Sut allwch chi ddatrys y swydd hon yn gyflym? Yn yr erthygl hon, rwy'n cyflwyno cod VBA i'ch helpu chi i'w drin cyn gynted â phosibl yn Outlook.

Uno dau ffolder heb ddyblygu i mewn i un yn ôl cod VBA

Cyfuno ffolderi lluosog a dileu eitemau dyblyg gyda Kutools ar gyfer Outlook

Uno dau ffolder heb ddyblygu i mewn i un yn ôl cod VBA

I uno dau ffolder yn un a chael gwared ar yr eitemau dyblyg, gallwch ei drin â chod VBA fel y camau canlynol:

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr

2. Cliciwch ddwywaith ar SesiwnOutlook o Project1 yn y cwarel chwith, yna copïwch a gludwch o dan y cod i'r sgript dde.

VBA: Uno dau ffolder heb diplicates

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 uno ffolderau heb ddyblygu 1

3. Cliciwch offer > Cyfeiriadau ac yn y dialog popping, gwiriwch Amser Rhedeg Sgriptio Microsoft checkbox.

4. Cliciwch OK. Nawr gwasgwch F5 allwedd i redeg y cod. Mae deialog yn galw allan i'ch atgoffa i ddewis y ffolder gyntaf rydych chi am ei chyfuno (noder: bydd yr holl eitemau yn y ffolder gyntaf yn cael eu tynnu ar ôl uno â'r ail ffolder).
doc uno ffolderau heb ddyblygu 4

5. Cliciwch OK, yn yr ail ymgom popping, dewiswch yr ail ffolder rydych chi am ei gymharu ac uno ag ef.
doc uno ffolderau heb ddyblygu 5

6. Cliciwch OK, nawr, bydd yr holl eitemau yn y ffolder gyntaf yn cael eu symud i'r ail ffolder, ac mae'r rhai dyblyg hefyd yn cael eu tynnu.
doc uno ffolderau heb ddyblygu 6

Cyfuno ffolderi lluosog a dileu eitemau dyblyg gyda Kutools ar gyfer Outlook

Os nad ydych chi'n gyfarwydd â chod VBA, ceisiwch ei ddefnyddio Kutools ar gyfer Rhagolwg, ychwanegiad defnyddiol, gyda'i Cydgrynhoi Ffolderi ac E-byst Dyblyg cyfleustodau a all drin y swydd hon yn hawdd ac yn gyflym.

Kutools for Outlook , Yn cynnwys 100 + nodweddion ac offer pwerus ar gyfer Microsoft Outlook 2016, 2013, 2010 ac Office 365.
Ewch i Lawrlwytho Treial Am Ddim 45 diwrnod

Gosod am ddim Kutools ar gyfer Outlook, ac yna gwnewch fel y camau isod:

Uno ffolderau lluosog

1. Cliciwch Kutools Byd Gwaith > Cydgrynhoi Ffolderi, yna yn y Uno ffolderi lluosog yn un deialog, cliciwch Ychwanegu i ychwanegu'r ffolderau at restr a fydd yn cael eu huno, dewiswch ffolder fel y ffolder cyrchfan.

2. Cliciwch OK > OK. Nawr mae'r holl eitemau yn y ffolderau a ddewiswyd wedi'u huno yn un ffolder benodol.
doc cydgrynhoi a dileu dyblyg 2

Tynnwch eitemau dyblyg

3. Cliciwch Kutools > Dileu Dyblyg > E-byst Dyblyg. Yna yn y Negeseuon dyblyg deialog, gwiriwch y ffolder rydych chi am gael gwared â dyblygu.

4. Cliciwch Digwyddiadau, Yn Gosodiadau Negeseuon Dyblyg deialog, nodwch y meini prawf rydych chi'n eu defnyddio i gymharu e-byst, yna gwiriwch Dileu negeseuon dyblyg dewis a dethol Cymharwch am negeseuon dyblyg mewn un ffolder.

5. Cliciwch Digwyddiadau > Digwyddiadau, mae'r e-byst dyblyg wedi'u hidlo. Cliciwch Dileu neges ddyblyg botwm> OK i gael gwared ar yr e-byst dyblyg yn llwyddiannus.
doc uno ffolderau heb ddyblygu 6