Cara Menggabungkan Item dengan Segera dari Beberapa Folder tanpa Pendua di Outlook

Sekiranya anda ingin menggabungkan semua item dari beberapa folder Outlook dan memastikan tidak ada pendua, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ia menggunakan kod VBA untuk membantu anda mencapainya seperti gabus.

Kadang-kadang, anda mungkin ingin menggabungkan item dari beberapa folder Outlook, seperti menggabungkan semua kenalan dari beberapa folder Kenalan Outlook. Dalam keadaan ini, jika terdapat beberapa kenalan yang digandakan di antara folder ini, anda mesti berharap pendua dapat dikeluarkan secara automatik semasa penggabungan. Dalam keadaan ini, anda boleh menggunakan kod VBA berikut untuk mewujudkannya dengan mudah.

Gabungkan Item dari Beberapa Folder tanpa Pendua

1. Kepada start, lancarkan aplikasi Outlook anda.
2. Kemudian, anda harus mengakses editor VBA Outlook dengan menekan butang "Alt + F11" di skrin utama Outlook.
3. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications", anda perlu membuka modul yang tidak digunakan.
4. Selepas itu, anda harus menyalin kod 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. Kemudian anda perlu melihat tetapan makro Outlook anda, memastikan makro diaktifkan.
6. Akhirnya anda boleh mencuba.

• Pertama, kembali ke tetingkap modul baru.
• Seterusnya tekan butang kekunci F5 untuk mencetuskan makro ini.
• Kemudian anda perlu memilih dua folder yang akan digabungkan. Yang pertama adalah sumber, dan yang kedua adalah sumber tardapatkan satu.
• Setelah itu, Outlook akan mula memindahkan semua item dari folder sumber ke tardapatkan satu. Sementara itu, pendua akan dikeluarkan secara automatik.
• Pada akhirnya, anda mungkin menerima mesej yang meminta jumlah pendua yang dikeluarkan, seperti tangkapan skrin di bawah:

Kesalahan kecil boleh menyebabkan kerosakan besar

Meskipun memiliki banyak fungsi yang sangat baik, Outlook masih rentan terhadap kesalahan dan kerosakan. Mungkin anda telah menghadapi pelbagai masalah Outlook. Banyak pengguna cenderung untuk mengabaikan kesalahan rawak. Namun, kesalahan kecil inilah yang mencetuskan kerusakan Outlook yang serius, yang akan membahayakan fail Outlook. Oleh itu, anda tidak boleh mengabaikan kesalahan kecil. Sebaliknya, anda harus menghapuskannya secepat mungkin. Lebih-lebih lagi, anda lebih baik menjaga kebolehan Pembaikan PST alat, seperti DataNumen Outlook Repair. Melalui kadar pemulihannya yang tinggi, utiliti ini telah meningkat berbanding rakan sebayanya.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com