Bagaimana cara menggabungkan dua folder tanpa duplikat menjadi satu folder di Outlook?

Di Outlook, Anda mungkin memiliki banyak akun email dengan banyak folder, dalam beberapa kasus, Anda ingin menggabungkan dua folder menjadi satu dan menghapus item duplikat. Bagaimana Anda bisa menyelesaikan pekerjaan ini dengan cepat? Pada artikel ini, saya memperkenalkan kode VBA untuk membantu Anda menanganinya secepat mungkin di Outlook.

Gabungkan dua folder tanpa duplikat menjadi satu dengan kode VBA

Gabungkan beberapa folder dan hapus item duplikat dengan Kutools for Outlook

Gabungkan dua folder tanpa duplikat menjadi satu dengan kode VBA

Untuk menggabungkan dua folder menjadi satu dan menghapus item duplikat, Anda dapat menanganinya dengan kode VBA sebagai langkah berikut:

1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela

2. Klik dua kali pada Sesi Pandangan ini dari Project1 di panel kiri, lalu salin dan tempel kode di bawah ini ke skrip kanan.

VBA: Gabungkan dua folder tanpa perpecahan

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 menggabungkan folder tanpa duplikat 1

3. klik Tools > Referensi dan di dialog popping, periksa Runtime Microsoft Scripting checkbox.

doc menggabungkan folder tanpa duplikat 2

doc menggabungkan folder tanpa duplikat 3

4. klik OK. Sekarang tekan F5 kunci untuk menjalankan kode. Sebuah dialog muncul untuk mengingatkan Anda memilih folder pertama yang ingin Anda gabungkan (catatan: semua item di folder pertama akan dihapus setelah digabungkan dengan folder kedua).
doc menggabungkan folder tanpa duplikat 4

5. klik OK, di dialog popping kedua, pilih folder kedua yang ingin Anda bandingkan dan gabungkan.
doc menggabungkan folder tanpa duplikat 5

6. klik OK, sekarang, semua item di folder pertama akan dipindahkan ke folder kedua, dan yang duplikat juga akan dihapus.
doc menggabungkan folder tanpa duplikat 6

Gabungkan beberapa folder dan hapus item duplikat dengan Kutools for Outlook

Jika Anda tidak terbiasa dengan kode VBA, coba gunakan Kutools untuk Outlook, add-in yang praktis, dengan Menggabungkan Folder dan Email Duplikat utilitas yang dapat dengan mudah dan cepat menangani pekerjaan ini.

Kutools for Outlook , Termasuk 100 + fitur dan alat canggih untuk Microsoft Outlook 2016, 2013, 2010, dan Office 365.
Pergi ke Download Uji Coba Gratis 45 hari

Instal gratis Kutools for Outlook, lalu lakukan langkah-langkah di bawah ini:

Gabungkan beberapa folder

1. klik Kutools Ditambah > Menggabungkan Folder, lalu di Gabungkan beberapa folder menjadi satu dialog, klik Add untuk menambahkan folder ke dalam list yang akan digabungkan, pilih folder sebagai folder tujuan.

2. klik OK > OK. Sekarang semua item di folder yang dipilih telah digabungkan menjadi satu folder tertentu.
doc menggabungkan dan menghapus duplikat 2

Hapus item duplikat

3. klik Kutools > Hapus Duplikat > Email Duplikat. Kemudian di Pesan duplikat dialog, centang folder yang ingin Anda hapus duplikatnya.

4. klik Selanjutnyadi Pengaturan Pesan Duplikat dialog, tentukan kriteria yang Anda gunakan untuk membandingkan email, lalu centang Hapus pesan duplikat pilihan dan pilih Bandingkan pesan duplikat dalam satu folder.

5. klik Selanjutnya > Selanjutnya, email duplikat telah difilter. Klik Hapus pesan duplikat tombol> OK untuk menghapus duplikat email dengan sukses.
doc menggabungkan folder tanpa duplikat 6