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
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.
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).
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.
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.
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. |
||
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ể.
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.
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.