Có thể bạn đã nhận thấy rằng các cuộc họp đã hủy vẫn còn tồn tại trong lịch của bạn. Điều này đòi hỏi bạn phải xóa chúng thủ công, rất phiền phức. Vì vậy, chắc hẳn bạn mong muốn Outlook có thể tự động xóa các cuộc họp đã hủy. Bài viết này sẽ giúp bạn thực hiện điều đó.
Trên thực tế, bài báo trước của tôi – “Cách xóa các cuộc họp bị hủy khỏi lịch Outlook một cách khéo léo” đã giới thiệu một số mẹo để xóa các cuộc họp bị hủy theo cách thủ công. Ngoài ra, trong phần cuối cùng của bài viết đó, có một cách để Outlook tự động xóa các cuộc họp đã hủy. Nhưng phương pháp đó cũng sẽ cho phép Outlook tự động chấp nhận tất cả lời mời họp. Đây không phải là những gì bạn muốn đôi khi. Do đó, ở đây chúng tôi sẽ chỉ cho bạn một cách khác, khá đơn giản và tiện lợi hơn nhiều.
Tự động xóa các cuộc họp đã hủy khỏi lịch
- Ngay từ đầu, hãy khởi động chương trình Outlook của bạn.
- Sau đó, bạn phải nhấn các nút phím “Alt + F11” trong cửa sổ Outlook.
- Tiếp theo, trong cửa sổ soạn thảo VBA tiếp theo, bạn cần nhấp đúp vào dự án “ThisOutlookSession” ở bên trái.
- Sau đó, bạn nên sao chép mã VBA sau vào dự án này.
Private WithEvents objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
Set objItems = objInbox.Items
End Sub
'Occurs when the meeting cancellation arrives in your Inbox
Private Sub objItems_ItemAdd(ByVal Item As Object)
Dim objCalendar As Outlook.Folder
Dim objAppointments As Outlook.Items
Dim i As Long
Dim objMeeting As Outlook.AppointmentItem
If TypeOf Item Is MeetingItem Then
If Left(LCase(Item.Subject), 9) = "canceled:" Then
'Remove canceled meeting
Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
Set objAppointments = objCalendar.Items
For i = objAppointments.count To 1 Step -1
Set objAppointment = objAppointments.Item(i)
If Left(objAppointment.Subject, 9) = "Canceled:" Then
objAppointment.Delete
End If
Next
End If
End If
End Sub
- Sau đó, bạn có thể gán chứng chỉ kỹ thuật số cho dự án này. Nhấp vào “Công cụ” và chọn “Chữ ký số”. Sau đó làm theo hướng dẫn để hoàn thành nó.
- Sau đó, đóng cửa sổ “Microsoft Visual Basic for Applications” và bắt đầu thay đổi cài đặt macro Outlook của bạn để cho phép các macro đã ký.
- Cuối cùng, bạn có thể khởi động lại Outlook để kích hoạt dự án VBA mới.
- Kể từ đó, mỗi khi có thông báo hủy cuộc họp trong Hộp thư đến của bạn, macro sẽ bắt đầu chạy và tự động xóa cuộc họp đã bị hủy khỏi lịch.
Tận dụng tối đa Công cụ sửa hộp thư đến
Nhiều người dùng Outlook có thể đã gặp khó khăn bởi các loại sự cố trong Outlook của họ, bao gồm các trục trặc nhỏ, thông báo lỗi và đột ngột không phản hồi cũng như các hư hỏng nghiêm trọng, v.v. Thành thật mà nói, đối với các sự cố nhỏ, Outlook có một công cụ sửa chữa sẵn có – scanpst, có thể khắc phục chúng một cách dễ dàng. Qua đó, khi gặp sự cố trong Outlook, bạn có thể sử dụng nó để xử lý. Nếu không thành công, bạn có thể tiếp tục nhờ sự trợ giúp của một công cụ bên thứ ba có kinh nghiệm và đáng chú ý, chẳng hạn như DataNumen Outlook Repair.
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 phục hồi sql 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