Cách hợp nhất nhanh các mục từ nhiều thư mục mà không trùng lặp trong Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Nếu bạn muốn hợp nhất tất cả các mục từ nhiều thư mục Outlook và đảm bảo không trùng lặp, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này. Nó đang sử dụng mã VBA để giúp bạn hoàn thành nó như một cái nút chai.

Đôi khi, bạn có thể muốn hợp nhất các mục từ một số thư mục Outlook, chẳng hạn như hợp nhất tất cả các liên hệ của một số thư mục Danh bạ Outlook. Trong tình huống này, nếu có một số liên hệ trùng lặp giữa các thư mục này, bạn phải hy vọng rằng các liên hệ trùng lặp có thể được loại bỏ tự động trong quá trình hợp nhất. Trong trường hợp này, bạn có thể sử dụng mã VBA sau để thực hiện nó một cách dễ dàng.

Hợp nhất các mục từ nhiều thư mục mà không trùng lặp

Để start bằng, khởi chạy ứng dụng Outlook của bạn.
Sau đó, bạn phải truy cập trình soạn thảo VBA của Outlook bằng cách nhấn nút phím “Alt + F11” trong màn hình chính của Outlook.
Tiếp theo, trong cửa sổ “Microsoft Visual Basic for Applications”, bạn cần mở một mô-đun không được sử dụng.
Sau đó, bạn nên sao chép mã VBA sau vào mô-đun này.

'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

Sau đó, bạn cần kiểm tra cài đặt macro Outlook của mình, đảm bảo rằng macro đã được bật.
Cuối cùng bạn có thể có một thử.

Đầu tiên, quay lại cửa sổ mô-đun mới.
Tiếp theo nhấn nút phím F5 để kích hoạt macro này.
Sau đó, bạn cần chọn hai thư mục sẽ được hợp nhất. Cái đầu tiên là cái nguồn, và cái thứ hai là tarlấy một cái.
Sau đó, Outlook sẽ bắt đầu di chuyển tất cả các mục từ thư mục nguồn sang thư mục tarlấy một cái. Ngoài ra, trong thời gian chờ đợi, các bản sao sẽ tự động bị xóa.
Cuối cùng, bạn có thể nhận được thông báo nhắc đếm số bản sao đã xóa, giống như ảnh chụp màn hình bên dưới:

Lỗi nhỏ có thể dẫn đến sự cố lớn

Mặc dù có rất nhiều chức năng xuất sắc, Outlook vẫn dễ bị lỗi và hỏng. Có lẽ bạn đã gặp phải nhiều vấn đề về Outlook. Nhiều người dùng có xu hướng bỏ qua các lỗi ngẫu nhiên. Tuy nhiên, chính một lỗi nhỏ lại gây ra sự cố Outlook nghiêm trọng, điều này sẽ gây nguy hiểm cho tệp Outlook. Vì vậy, bạn không nên bỏ qua bất kỳ lỗi nhỏ nào. Thay vào đó, bạn nên loại bỏ chúng càng sớm càng tốt. Hơn nữa, bạn nên giữ một apt PST sửa chữa công cụ, chẳng hạn như DataNumen Outlook Repair. Thông qua tỷ lệ thu hồi cao, tiện ích này đã vượt qua các công ty cùng ngành.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sql bị hỏng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm