Kako združiti dve mapi brez dvojnikov v eno mapo v Outlooku?

V Outlooku imate morda veliko e-poštnih računov z več mapami, v nekaterih primerih želite združiti dve mapi v eno in odstraniti podvojene elemente. Kako lahko hitro rešite to delo? V tem članku predstavljam kodo VBA, ki vam pomaga, da jo v Outlooku čim hitreje obravnavate.

Združite dve mapi brez dvojnikov v eno s kodo VBA

Združite več map in odstranite podvojene elemente z Kutools for Outlook

Združite dve mapi brez dvojnikov v eno s kodo VBA

Če želite združiti dve mapi v eno in odstraniti podvojene predmete, lahko to storite s kodo VBA, kot sledi:

1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno

2. Dvokliknite na Ta OutlookSession iz Project1 v levo podokno, nato kopirajte in prilepite spodnjo kodo v desni skript.

VBA: združite dve mapi brez dvojnikov

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

3. klik Orodja > Reference in v pojavnem pogovornem oknu potrdite Izvajanje Microsoftovih skriptov potrditveno polje.

4. klik OK. Zdaj pritisnite F5 tipko za zagon kode. Pojavi se pogovorno okno, ki vas opomni, da izberete prvo mapo, ki jo želite združiti (opomba: vsi elementi v prvi mapi bodo po združitvi z drugo mapo odstranjeni).

5. klik OK, v drugem pogovornem oknu izberite drugo mapo, ki jo želite primerjati in združiti.

6. klik OK, zdaj bodo vsi elementi v prvi mapi premaknjeni v drugo mapo, dvojniki pa bodo prav tako odstranjeni.

Združite več map in odstranite podvojene elemente z Kutools for Outlook

Če kode VBA ne poznate, poskusite uporabiti Kutools for Outlook, priročen dodatek s svojim Utrjevanje map in Podvojena e-poštna sporočila gospodarske javne službe, ki lahko to delo enostavno in hitro rešijo.

Brezplačna namestitev Kutools for Outlookin nato naredite spodnja navodila:

Združi več map

1. klik Kutools Plus > Utrjevanje map, potem v Združi več map v eno dialog, kliknite Dodaj če želite dodati mape na seznam, ki bo združen, izberite mapo kot ciljno mapo.

2. klik OK > OK. Zdaj so bili vsi elementi v izbranih mapah združeni v eno določeno mapo.

Odstranite podvojene predmete

3. klik Kutools > Izbriši dvojnik > Podvojena e-poštna sporočila. Nato v Podvojena sporočila v pogovornem oknu označite mapo, v kateri želite odstraniti dvojnike.

4. klik Naslednjiv Nastavitve podvojenih sporočil v pogovornem oknu določite merila, ki jih uporabljate za primerjavo e-poštnih sporočil, nato preverite Izbrišite podvojena sporočila možnost in izberite Primerjaj za podvojena sporočila v eni mapi.

5. klik Naslednji > Naslednji, podvojena e-poštna sporočila so bila filtrirana. Kliknite Izbriši podvojeno sporočilo gumb> OK če želite uspešno odstraniti podvojena e-poštna sporočila.