Nếu bạn vô tình thêm các ngày lễ giống nhau vào cùng một lịch hai lần trở lên, bạn sẽ thấy rằng lịch có nhiều ngày lễ trùng lặp. Trong trường hợp này, bạn phải muốn loại bỏ các bản sao. Bây giờ, bài viết này sẽ dạy cho bạn 2 phương tiện.
Outlook có một tính năng sẵn có để nhanh chóng thêm ngày lễ vào lịch mặc định. Nó chắc chắn là khá thuận tiện cho người dùng. Tuy nhiên, nếu bạn thêm nhầm các ngày nghỉ hai lần trở lên, lịch mặc định của bạn sẽ chứa đầy các ngày nghỉ trùng lặp. Bây giờ, trong phần sau, chúng tôi sẽ giới thiệu cho bạn 2 cách để loại bỏ nhanh các bản sao.
Phương pháp 1: Xóa tất cả các ngày lễ và thêm lại chúng
- Trước tiên, hãy mở chương trình Outlook của bạn.
- Sau đó truy cập vào thư mục Lịch nguồn.
- Tiếp theo, chuyển sang tab “Chế độ xem” và chọn “Thay đổi chế độ xem” > “Danh sách”.
- Sau đó, bạn nên nhấp vào nút “Danh mục” trong nhóm “Sắp xếp”.
- Tiếp theo, bạn sẽ thấy tất cả các cuộc hẹn đã được nhóm theo danh mục.
- Bây giờ bạn có thể tìm hiểu nhóm “Kỳ nghỉ”.
- Cuối cùng, nhấp vào tiêu đề nhóm “Ngày lễ” rồi nhấn phím “Xóa”.
- Cùng một lúc, tất cả các ngày nghỉ hiện có đã bị xóa.
- Sau khi xóa chúng, bạn có thể thêm lại ngày lễ. Đầu tiên, hãy vào “Tệp” > Tùy chọn”.
- Trong cửa sổ bật lên “Tùy chọn Outlook”, bạn có thể chuyển sang tab 'Lịch'.
- Trong tab này, bạn sẽ có thể tìm thấy nút “Thêm ngày lễ”.
- Sau đó, trong hộp thoại mới, chọn một vị trí, chẳng hạn như “United States” và nhấn “OK”.
- Cuối cùng, những ngày nghỉ lễ đã được nhập lại vào Lịch mặc định.
Cách 2: Loại bỏ các ngày lễ trùng lặp bằng VBA
- Ngay từ đầu, nhấn nút phím “Alt + F11”.
- Tiếp theo, bạn sẽ truy cập vào cửa sổ soạn thảo Outlook VBA, trong đó bạn có thể mở một mô-đun không sử dụng.
- Sau đó, sao chép mã VBA sau vào mô-đun này.
Sub RemoveDuplicateHolidays()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Outlook.Application.Session.Stores
'Process all Outlook PST files in your Outlook
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim objDictionary As Object
Dim i As Long
Dim objItem As Object
Dim strKey As String
Set objDictionary = CreateObject("Scripting.Dictionary")
If objCurrentFolder.DefaultItemType = olAppointmentItem Then
For i = objCurrentFolder.Items.count To 1 Step -1
Set objItem = objCurrentFolder.Items.Item(i)
'Get all holidays based on the "Holiday" category
If objItem.Categories = "Holiday" Then
strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
strKey = Replace(strKey, ", ", Chr(32))
If objDictionary.Exists(strKey) = True Then
objItem.Delete
Else
objDictionary.Add strKey, True
End If
End If
Next i
End If
End Sub
- Cuối cùng, bạn có thể thử macro này.
- Nhấp vào chương trình con “RemoveDuplicateHolidays”.
- Sau đó nhấn nút phím F5 để chạy nó.
- Sau khi hoàn tất, tất cả các ngày nghỉ trùng lặp trong tất cả lịch Outlook của bạn sẽ bị xóa.
Truy xuất dữ liệu Outlook có giá trị
Một thực tế không thể nghi ngờ là không có chương trình nào có thể đảm bảo rằng nó có thể tránh khỏi lỗi và tham nhũng. Điều tương tự cũng đúng với Outlook. Vì vậy, để bảo vệ dữ liệu Outlook của mình, tốt hơn hết bạn nên sao lưu dữ liệu thường xuyên. Ngoài ra, bạn cần lên lịch trước cho kế hoạch khôi phục Outlook. Cuối cùng nhưng không kém phần quan trọng, bạn nên thận trọng chuẩn bị một công cụ sửa lỗi uy tín, chẳng hạn như DataNumen Outlook Repair. Nó có thể sửa chữa triển vọng khắc phục sự cố ngay lập tức và lấy lại dữ liệu Outlook tối đa từ tệp bị xâm nhập.
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 lấy lại Sql Server 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