Ինչպե՞ս Outlook- ում առանց կրկնօրինակների երկու թղթապանակ միավորել մեկ թղթապանակի մեջ:

Հեղինակ՝ Արև Վերջին փոփոխությունը՝ 2020-10-29

Outlook- ում դուք կարող եք ունենալ բազմաթիվ էլփոստի հաշիվներ ՝ բազմաթիվ պանակներով, որոշ դեպքերում ցանկանում եք երկու պանակ միավորել մեկի մեջ և հեռացնել կրկնօրինակ իրերը: Ինչպե՞ս կարող եք արագ լուծել այս գործը: Այս հոդվածում ես ներկայացնում եմ VBA կոդ, որը կօգնի ձեզ հնարավորինս արագ կարգավորել այն Outlook- ում:

Առանց կրկնօրինակների երկու թղթապանակ միաձուլեք մեկի մեջ VBA կոդով

Միավորել բազմաթիվ պանակներ և հեռացնել կրկնօրինակ իրերը Kutools- ի հետ Outlook- ի համար

Առանց կրկնօրինակների երկու թղթապանակ միաձուլեք մեկի մեջ VBA կոդով

Երկու թղթապանակը մեկում միավորելու և կրկնօրինակ տարրերը հեռացնելու համար այն կարող եք կարգավորել VBA կոդով `հետևյալ քայլերով.

1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան

2. Կրկնակի սեղմեք այստեղ ԱյսOutlookSession- ը - ից Project1 ձախ պատուհանում, ապա պատճենեք և կպցրեք կոդը ներքևում ճիշտ սցենարի վրա:

VBA. Միաձուլեք երկու թղթապանակ առանց բարդությունների

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 միաձուլեք պանակները առանց կրկնօրինակների 1

3: սեղմեք Գործիքներ > Սայլակ և ելնող երկխոսության մեջ ստուգեք Microsoft Scripting Runtime վանդակը.

doc միաձուլեք պանակները առանց կրկնօրինակների 2

doc միաձուլեք պանակները առանց կրկնօրինակների 3

4: սեղմեք OK. Այժմ սեղմեք F5 ծածկագիրը գործելու համար: Բացվում է երկխոսություն ՝ հիշեցնելու համար, որ ընտրեք առաջին թղթապանակը, որը ցանկանում եք միավորել (նշում. Երկրորդ թղթապանակի հետ միաձուլվելուց հետո առաջին թղթապանակի բոլոր կետերը կհեռացվեն):
doc միաձուլեք պանակները առանց կրկնօրինակների 4

5: սեղմեք OK, երկրորդ ելնող երկխոսության մեջ ընտրեք երկրորդ թղթապանակը, որի հետ ցանկանում եք համեմատել և միաձուլվել:
doc միաձուլեք պանակները առանց կրկնօրինակների 5

6: սեղմեք OK, հիմա առաջին պանակի բոլոր կետերը կտեղափոխվեն երկրորդ պանակ, և կրկնօրինակները նույնպես կհեռացվեն:
doc միաձուլեք պանակները առանց կրկնօրինակների 6

Միավորել բազմաթիվ պանակներ և հեռացնել կրկնօրինակ իրերը Kutools- ի հետ Outlook- ի համար

Եթե ծանոթ չեք VBA կոդին, փորձեք օգտագործել Outlook- ի համար նախատեսված գործիքներ, հարմար լրացում իր հետ Թղթապանակների համախմբում և Կրկնօրինակեք էլ կոմունալ ծառայություններ, որոնք կարող են հեշտությամբ և արագ կարգավորել այս աշխատանքը:

Kutools for Outlook , Ներառում է 100+ հզոր առանձնահատկություններ և գործիքներ Microsoft Outlook 2016-ի, 2013-ի, 2010-ի և Office 365-ի համար:
Անցեք Ներբեռնում 45 օրվա անվճար փորձարկում

Անվճար տեղադրում Կոշուլսներ Outlook- ի համար, ապա կատարեք ինչպես ստորև նշված քայլերը.

Միավորել բազմաթիվ պանակներ

1: սեղմեք Kutools Plus > Թղթապանակների համախմբում, ապա Միավորել բազմաթիվ պանակներ մեկի մեջ երկխոսություն, սեղմեք Ավելացնել պանակները ցուցակում ավելացնելու համար, որոնք միաձուլվելու են, որպես նպատակակետ ընտրեք պանակ:

2: սեղմեք OK > OK, Այժմ ընտրված պանակների բոլոր տարրերը միավորվել են մեկ հատուկ պանակի մեջ:
փաստաթուղթը համախմբել և հեռացնել կրկնօրինակը 2

Հեռացրեք կրկնօրինակ իրերը

3: սեղմեք Կուտոլս > Deleteնջել կրկնօրինակը > Կրկնօրինակեք էլ. Այնուհետեւ Կրկնօրինակեք հաղորդագրությունները երկխոսություն, ստուգեք այն թղթապանակը, որը ցանկանում եք հեռացնել կրկնօրինակները:

4: սեղմեք հաջորդ, In Կրկնօրինակեք հաղորդագրությունների կարգավորումները երկխոսություն, նշեք այն չափանիշները, որոնք օգտագործում եք նամակները համեմատելու համար, ապա ստուգեք Deleteնջել կրկնօրինակ հաղորդագրությունները եւ ընտրեք Համեմատեք կրկնօրինակ հաղորդագրությունների համար մեկ պանակում.

5: սեղմեք հաջորդ > հաջորդ, կրկնօրինակ էլ. փոստերը զտվել են: Սեղմել Deleteնջել կրկնօրինակ հաղորդագրությունը կոճակ> OK հաջողությամբ հեռացնել կրկնօրինակ նամակները:
doc միաձուլեք պանակները առանց կրկնօրինակների 6