Cara Cepat Menggabungkan Item dari Beberapa Folder tanpa Duplikat di Outlook

Jika Anda ingin menggabungkan semua item dari beberapa folder Outlook dan memastikan tidak ada duplikat, Anda dapat menggunakan metode yang diperkenalkan di artikel ini. Ini menggunakan kode VBA untuk membantu Anda melakukannya seperti gabus.

Terkadang, Anda mungkin ingin menggabungkan item dari beberapa folder Outlook, seperti menggabungkan semua kontak dari beberapa folder Kontak Outlook. Dalam situasi ini, jika ada beberapa kontak duplikat di antara folder-folder ini, Anda harus berharap duplikat tersebut dapat dihapus secara otomatis selama penggabungan. Dalam keadaan ini, Anda dapat menggunakan kode VBA berikut untuk merealisasikannya dengan mudah.

Gabungkan Item dari Beberapa Folder tanpa Duplikat

1. Untuk start dengan, luncurkan aplikasi Outlook Anda.
2. Kemudian, Anda harus mengakses editor VBA Outlook dengan menekan tombol "Alt + F11" di layar utama Outlook.
3. Selanjutnya, di jendela "Microsoft Visual Basic for Applications", Anda perlu membuka modul yang tidak sedang digunakan.
4. Setelah itu, Anda harus menyalin kode VBA berikut ke dalam modul ini.

'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

5. Nanti Anda perlu memeriksa pengaturan makro Outlook Anda, memastikan makro diaktifkan.
6. Akhirnya Anda bisa mencobanya.

• Pertama, kembali ke jendela modul baru.
• Selanjutnya tekan tombol F5 untuk memicu makro ini.
• Kemudian Anda perlu memilih dua folder yang akan digabungkan. Yang pertama adalah sumber, dan yang kedua adalah tardapatkan Satu.
• Setelah itu, Outlook akan mulai memindahkan semua item dari folder sumber ke tardapatkan Satu. Selain itu, sementara itu, duplikat akan dihapus secara otomatis.
• Pada akhirnya, Anda mungkin menerima pesan yang meminta jumlah duplikat yang dihapus, seperti gambar di bawah ini:

Kesalahan Kecil Dapat Menyebabkan Gangguan Besar

Meskipun sarat dengan jumlah fungsi yang sangat baik, Outlook masih rentan terhadap kesalahan dan korupsi. Mungkin Anda mengalami berbagai masalah Outlook. Banyak pengguna cenderung mengabaikan kesalahan acak. Namun, ini adalah kesalahan kecil yang memicu crash Outlook yang serius, yang akan membahayakan file Outlook. Jadi, Anda tidak boleh mengabaikan kesalahan kecil apa pun. Sebaliknya, Anda harus menghilangkannya sesegera mungkin. Selain itu, Anda sebaiknya tetap menggunakan apt Perbaikan PST alat, seperti DataNumen Outlook Repair. Melalui tingkat pemulihannya yang tinggi, utilitas ini telah memanggul rekan-rekannya.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com