Làm cách nào để hợp nhất hai thư mục mà không có bản sao vào một thư mục trong Outlook?

Trong Outlook, bạn có thể có nhiều tài khoản email với nhiều thư mục, trong một số trường hợp, bạn muốn hợp nhất hai thư mục thành một và loại bỏ các mục trùng lặp. Làm thế nào bạn có thể nhanh chóng giải quyết công việc này? Trong bài viết này, tôi giới thiệu một mã VBA để giúp bạn xử lý nó nhanh nhất có thể trong Outlook.

Hợp nhất hai thư mục không có bản sao thành một bằng mã VBA

Hợp nhất nhiều thư mục và xóa các mục trùng lặp với Kutools cho Outlook

Hợp nhất hai thư mục không có bản sao thành một bằng mã VBA

Để hợp nhất hai thư mục thành một và xóa các mục trùng lặp, bạn có thể xử lý nó bằng mã VBA theo các bước sau:

1. nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ

2. Nhấp đúp vào ĐâyOutlookSession từ Project1 trong ngăn bên trái, sau đó sao chép và dán mã bên dưới vào tập lệnh bên phải.

VBA: Hợp nhất hai thư mục mà không có liên kết

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 hợp nhất các thư mục không có bản sao 1

3. nhấp chuột CÔNG CỤ > dự án và trong hộp thoại bật lên, hãy kiểm tra Thời gian chạy tập lệnh của Microsoft hộp kiểm.

doc hợp nhất các thư mục không có bản sao 2

doc hợp nhất các thư mục không có bản sao 3

4. nhấp chuột OK. Bây giờ bấm F5 phím để chạy mã. Một hộp thoại bật ra để nhắc bạn chọn thư mục đầu tiên bạn muốn hợp nhất (lưu ý: tất cả các mục trong thư mục đầu tiên sẽ bị xóa sau khi hợp nhất với thư mục thứ hai).
doc hợp nhất các thư mục không có bản sao 4

5. nhấp chuột OK, trong hộp thoại bật lên thứ hai, hãy chọn thư mục thứ hai mà bạn muốn so sánh và hợp nhất với.
doc hợp nhất các thư mục không có bản sao 5

6. nhấp chuột OKBây giờ, tất cả các mục trong thư mục đầu tiên sẽ được chuyển sang thư mục thứ hai và các mục trùng lặp cũng bị xóa.
doc hợp nhất các thư mục không có bản sao 6

Hợp nhất nhiều thư mục và xóa các mục trùng lặp với Kutools cho Outlook

Nếu bạn không quen với mã VBA, hãy thử sử dụng Kutools cho Outlook, một tiện ích bổ sung tiện dụng, với Hợp nhất các thư mục và Email trùng lặp tiện ích có thể dễ dàng và nhanh chóng xử lý công việc này.

Kutools for Outlook , Bao gồm 100 + các tính năng và công cụ mạnh mẽ dành cho Microsoft Outlook 2016, 2013, 2010 và Office 365.
Đi tới Tải xuống Dùng thử miễn phí 45 ngày

Cài đặt miễn phí Kutools cho Outlook, và sau đó thực hiện như các bước dưới đây:

Hợp nhất nhiều thư mục

1. nhấp chuột Kutools Plus > Hợp nhất các thư mục, sau đó trong Hợp nhất nhiều thư mục thành một thoại, bấm Thêm để thêm các thư mục vào danh sách sẽ được hợp nhất, hãy chọn một thư mục làm thư mục đích.

2. nhấp chuột OK > OK. Bây giờ tất cả các mục trong các thư mục đã chọn đã được hợp nhất vào một thư mục cụ thể.
doc hợp nhất và xóa bản sao 2

Xóa các mục trùng lặp

3. nhấp chuột Kutools > Xóa trùng lặp > Email trùng lặp. Sau đó, trong Tin nhắn trùng lặp hộp thoại, kiểm tra thư mục bạn muốn loại bỏ các bản sao.

4. nhấp chuột Sau, Trong Cài đặt tin nhắn trùng lặp , chỉ định các tiêu chí bạn sử dụng để so sánh các email, sau đó kiểm tra Xóa tin nhắn trùng lặp tùy chọn và chọn So sánh các thư trùng lặp trong một thư mục.

5. nhấp chuột Sau > Sau, các email trùng lặp đã được lọc. Nhấp chuột Xóa tin nhắn trùng lặp nút> OK để loại bỏ các email trùng lặp thành công.
doc hợp nhất các thư mục không có bản sao 6