Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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

Uno ffolderau lluosog a chael gwared ar 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 ThisOutlookSession 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 Microsoft Scripting Runtime checkbox.

doc uno ffolderau heb ddyblygu 2 saeth doc dde doc uno ffolderau heb ddyblygu 3

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


Uno ffolderau lluosog a chael gwared ar 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 a 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.

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

Uno ffolderau lluosog

1. Cliciwch Kutools Plus > 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.
doc cydgrynhoi a dileu dyblyg 1

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.
doc cydgrynhoi a dileu dyblyg 3

4. Cliciwch nesaf, 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.
doc cydgrynhoi a dileu dyblyg 4

5. Cliciwch nesaf > nesaf, 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 cydgrynhoi a dileu dyblyg 5 doc uno ffolderau heb ddyblygu 6


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.