Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

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

Yn Outlook, efallai y bydd gennych lawer o gyfrifon e-bost gyda llawer o ffolderi, mewn rhai achosion, rydych chi am uno dwy ffolder i mewn i un a dileu'r eitemau sydd wedi'u dyblygu. Sut allwch chi ddatrys y swydd hon yn gyflym? Yn yr erthygl hon, rwyf yn cyflwyno cod VBA i'ch helpu i ei drin cyn gynted ag y bo modd yn Outlook.

Cyfuno dwy ffolder heb ddyblygu i mewn i un trwy god VBA

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

Cyfuno ffolderi lluosog i mewn i un ffolder mewn rhagolwg

Yn Outlook, efallai y bydd sawl ffolder ar gyfer cydgrynhoi'n hawdd, efallai y byddwch am uno'r un ffolderi i un, er enghraifft, uno pob Mewnflwch ar draws cyfrifon i mewn i un. Y Cyfuno Ffolderi of Kutools ar gyfer Outlook yn gweithio ar gyfer hyn. Dim ond cliciau cyflym sydd angen, bydd y ffolderi a ddewiswyd yn cael eu cyfuno i mewn i un. Cliciwch ar gyfer treialon rhad ac am ddim diwrnod 45 yn y dyfodol!
doc cyfuno a dileu 1 dyblyg
Kutools for Outlook: gyda dwsinau o ychwanegu Outlook defnyddiol, am ddim i geisio heb gyfyngiad mewn diwrnodau 45.

Cyfuno dwy ffolder heb ddyblygu i mewn i un trwy god VBA

I uno dwy ffolder i mewn i un a dileu'r eitemau dyblyg, gallwch ei drin gyda chod VBA fel y camau canlynol:

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

2. Cliciwch ddwywaith yn ThisOutlookSession o Project1 yn y chwith, yna copïwch a gludwch y cod isod i'r sgript iawn.

VBA: Cyfuno dwy ffolder heb ddiplicates

Sub MergeOutlookFolders_WithoutDuplicates () 'UpdatebyExtendoffice20180521 Dim xSourceFolder Fel Outlook.Folder Dim xTargetFolder Fel Outlook.Folder Dim xCount, i As Long Dim xItem As Object Dim xSourceItem Fel Amcan Dim xTargetItem Fel Gwrthwynebiad Dim XDictionary As Scripting.Dictionary' Object Dim xStr As String On Error Cymerwch y Gosod Nesaf xDictionary = Scripting Newydd. Set Settings xSourceFolder = Application.Session.PickFolder Set xTargetFolder = Application.Session.PickFolder xCount = 0 Os xSourceFolder.DefaultItemType <> xTargetFolder.DefaultItemType Yna, MsgBox "Gwall: Nid yw'r ddwy ffolder yn yr un math ! ", vbExclamation + vbOKOnly," Kutools for Outlook "Is-Ddechrau Ymadael Os Ar gyfer i = xSourceFolder.Items.Count I 1 Step -1 Set xSourceItem = xSourceFolder.Items.Item (i) xSourceItem.Move xTargetFolder Nesaf I i = xTargetFolder. Items.Count I 1 Step -1 Set xTargetItem = xTargetFolder.Items.Item (i) Dewiswch Achos xTargetItem.Class Achos olMail Gyda xTargetItem xStr = .Subject & .Body &. Dechrau Gyda Achosiad Ol Achos Gyda xTargetItem xStr = .Subject & .Start & .Duration & .Location & .Body End With Case olContact With xTargetItem xStr = .FullName & .Email1Address & .Email2Address & .Email3Address End With Case olTask ​​Gyda xTargetItem xStr = .Subject & .StartDate & .DueDate & .Body End With End Select Os xDictionary.Exists (xStr) = Gwir Yna xTargetItem.Delete xCount = xCount + 1 Else xDictionary.Add xStr, True End Os Next i Os xCount <> 0 Yna MsgBox xCount a "dyblygiadau wedi'u tynnu wrth uno!", VbInformation + vbOKOnly, "Kutools for Outlook" Diwedd Os End Is

Mae doc yn uno ffolderi heb ddyblygu 1

3. Cliciwch offer > cyfeiriadau ac yn y deialog popio, gwirio Microsoft Scripting Runtime checkbox.

Mae doc yn uno ffolderi heb ddyblygu 2 doc arrow i&#39;r dde Mae doc yn uno ffolderi heb ddyblygu 3

4. Cliciwch OK. Nawr gwasgwch F5 allweddol i redeg y cod. Dychymyg deialog i'ch atgoffa i ddewis y ffolder cyntaf yr hoffech ei uno (nodwch: bydd yr holl eitemau yn y ffolder cyntaf yn cael eu tynnu ar ôl uno gyda'r ail ffolder).
Mae doc yn uno ffolderi heb ddyblygu 4

5. Cliciwch OK, yn yr ail ddeialog popping, dewiswch yr ail ffolder rydych chi am ei gymharu a'i uno.
Mae doc yn uno ffolderi heb ddyblygu 5

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


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

Os nad ydych chi'n gyfarwydd â chod VBA, ceisiwch ei ddefnyddio Kutools ar gyfer Outlook, ychwanegiad defnyddiol, gyda'i Cyfuno Ffolderi ac E-bost Dyblyg cyfleustodau sy'n gallu ymdopi â'r swydd hon yn rhwydd ac yn gyflym.

Kutools for Outlook , Yn cynnwys 100 + nodweddion pwerus ac offer ar gyfer Microsoft Outlook 2016, 2013, 2010 a Office 365.

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

Cyfuno sawl ffolderi

1. Cliciwch Kutools Mwy > Cyfuno Ffolderi, yna yn y Cyfuno sawl ffolderi i mewn i un deialog, cliciwch Ychwanegu i ychwanegu'r ffolderi i mewn i'r rhestr a fydd yn cael ei uno, dewiswch ffolder fel y ffolder cyrchfan.
doc cyfuno a dileu 1 dyblyg

2. Cliciwch OK > OK. Nawr mae'r holl eitemau yn y ffolderi a ddewiswyd wedi'u cyfuno i mewn i un ffolder penodol.
doc cyfuno a dileu 2 dyblyg

Dileu eitemau dyblyg

3. Cliciwch Kutools > Dileu Dyblyg > E-bost Dyblyg. Yna yn y Negeseuon dyblyg deialog, edrychwch ar y ffolder yr hoffech gael gwared â dyblygu.
doc cyfuno a dileu 3 dyblyg

4. Cliciwch nesaf, Yn Gosodiadau Neges Dyblyg deialog, nodwch y meini prawf a ddefnyddiwch i gymharu negeseuon e-bost, yna gwiriwch Dileu negeseuon dyblyg dewis a dethol Cymharwch am negeseuon dyblyg o fewn un ffolder.
doc cyfuno a dileu 4 dyblyg

5. Cliciwch nesaf > nesaf, mae'r negeseuon e-bost dyblyg wedi cael eu hidlo. Cliciwch Dileu neges ddyblyg botwm> OK i gael gwared ar y negeseuon e-bost dyblyg yn llwyddiannus.
doc cyfuno a dileu 5 dyblyg Mae doc yn uno ffolderi heb ddyblygu 6



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
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.