2 cách để xóa hàng loạt lời nhắc khỏi tất cả các mục lịch dự kiến ​​hoặc miễn phí trong Outlook

Đối với các mục lịch được hiển thị là “Miễn phí” hoặc “Dự kiến”, bạn có thể muốn xóa lời nhắc của chúng. Bây giờ, trong bài viết này, chúng tôi sẽ giới thiệu 2 phương pháp có thể cho phép bạn lấy hàng loạt.

Có lẽ bạn đã định cấu hình thời gian nhắc nhở mặc định cho tất cả các mục lịch. Trong trường hợp này, bất kể các mục bận rộn, không có mặt tại văn phòng, rảnh rỗi hoặc dự kiến, chúng sẽ luôn được bật lời nhắc. Tuy nhiên, thông thường, các mục miễn phí và dự kiến ​​thực tế không yêu cầu nhắc nhở. Do đó, bạn muốn xóa hàng loạt lời nhắc khỏi các mục đó. Vì vậy, ở đây chúng tôi sẽ dạy bạn 2 cách để nhận ra điều đó chỉ trong một lần.

Phương pháp 1: Xóa hàng loạt trong một lịch theo cách thủ công

1. Trước hết, hãy mở một cuốn lịch.
2. Sau đó, chuyển sang tab “Chế độ xem” và nhấp vào “Thay đổi chế độ xem” > “Danh sách”.
3. Tiếp theo, nhấp vào nút “Xem cài đặt”.
4. Trong hộp thoại bật lên, nhấn nút “Nhóm theo”.
5. Sau đó, trong một hộp thoại mới khác, chọn “Nhắc nhở” trong “Nhóm các mục theo” và nhấp vào “OK”.
6. Sau đó, nhấp vào nút “Cột”.
7. Trong hộp thoại “Hiển thị cột”, thêm cột “Hiển thị thời gian dưới dạng” và nhấn “OK”.
8. Sau đó, nhấp vào “OK” để lưu cài đặt chế độ xem.
9. Trong danh sách mục lịch, tìm và chọn tất cả các mục rảnh/dự kiến ​​trong nhóm “Nhắc nhở: Có”.
10. Cuối cùng, kéo và thả chúng vào nhóm “Reminder: No”.

Phương pháp 2: Xóa hàng loạt trong tất cả các lịch bằng VBA

1. Đầu tiên, nhấn “Alt + F11” để kích hoạt trình soạn thảo VBA.
2. Sau đó, sao chép mã VBA bên dưới vào một mô-đun.

Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Sau đó, di chuyển con trỏ vào chương trình con đầu tiên.
4. Cuối cùng nhấn phím “F5”.
5. Ngay lập tức, tất cả lời nhắc về các mục lịch miễn phí hoặc dự kiến ​​sẽ bị xóa.

Đối phó với những rắc rối đáng lo ngại của Outlook

Việc gặp phải các sự cố linh tinh trong Outlook là khá phổ biến, chẳng hạn như hỏng tệp PST, nhiễm vi-rút, vô tình xóa mục, v.v. Để giải quyết chúng kịp thời và hiệu quả, bạn nên giữ một tài khoản đáng tin cậy. PST sửa chữa công cụ trong vùng lân cận, như DataNumen Outlook Repair. Nó có thể cứu bạn khỏi việc mất dữ liệu Outlook khó chịu.

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 sửa chữa mdf 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