Nếu bạn muốn hủy tất cả các cuộc họp đã lên lịch trong một phạm vi ngày cụ thể trong Outlook của mình, bạn có thể sử dụng các phương tiện được giới thiệu trong bài viết này. Nó có thể giúp bạn không phải tìm kiếm và hủy các cuộc họp như vậy theo cách thủ công.
Nếu vì một số lý do, bạn không thể tổ chức hoặc tham gia các cuộc họp sẽ được tổ chức vào một phạm vi ngày nhất định trong tương lai, bạn có thể muốn hủy tất cả các cuộc họp đó. Nói chung, trước tiên bạn phải tìm ra chúng rồi hủy từng cái một. Sẽ khá rắc rối đấy. Vì vậy, sau đây chúng tôi sẽ chia sẻ đến bạn một cách khác tiện lợi hơn rất nhiều.
Hủy hàng loạt tất cả các cuộc họp được lên lịch trong một phạm vi ngày cụ thể
- Trước tiên, hãy mở chương trình Outlook của bạn.
- Sau đó, trong Outlook, bạn cần nhấn nút phím “Alt + F11”.
- Tiếp theo, bạn sẽ vào cửa sổ “Microsoft Visual Basic for Application”.
- Trong cửa sổ này, bạn nên mở một mô-đun không sử dụng hoặc chỉ cần chèn một mô-đun mới.
- Sau đó, bạn có thể sao chép mã VBA sau vào mô-đun này.
Sub BatchCancelAllMeetingsInSpecificDateRange()
Dim dStartDate As Date
Dim dEndDate As Date
Dim objCalendarFolder As Outlook.folder
Dim objItems As Outlook.Items
Dim objItemsInDateRange As Outlook.Items
Dim objAppointment As Outlook.AppointmentItem
Dim objResponse As Outlook.MeetingItem
'Specify the start date and end date
dStartDate = InputBox("Enter the start date:", , "10/1/2017")
dEndDate = InputBox("Enter the end date:", , "10/8/2017")
If dStartDate <> #1/1/4501# And dEndDate <> #1/1/4501# Then
'Select a calendar folder
Set objCalendarFolder = Outlook.Application.Session.PickFolder
Set objItems = objCalendarFolder.Items
objItems.IncludeRecurrences = True
objItems.Sort "[Start]"
'Get the appointments in the specific date range
strFilter = "[Start] >= " & Chr(34) & dStartDate & " 00:00 AM" & Chr(34) & " AND [End] <= " & Chr(34) & dEndDate & " 11:59 PM" & Chr(34)
Set objItemsInDateRange = objItems.Restrict(strFilter)
objItemsInDateRange.Sort "[Start]"
For Each objAppointment In objItemsInDateRange
'Cancel the meetings in this date range
If objAppointment.MeetingStatus = olMeeting Then
If objAppointment.Organizer = Outlook.Session.CurrentUser Then
objAppointment.MeetingStatus = olMeetingCanceled
objAppointment.Save
objAppointment.Send
objAppointment.Delete
Else
Set objResponse = objAppointment.Respond(olMeetingDeclined)
objResponse.Send
objAppointment.Delete
End If
End If
Next
End If
End Sub
- Cuối cùng, bạn có thể chạy macro này ngay bây giờ.
- Trong cửa sổ macro hiện tại, nhấn nút phím “F5”.
- Tiếp theo, bạn sẽ được yêu cầu chỉ định phạm vi ngày.
- Sau đó, một hộp thoại khác sẽ hiển thị, yêu cầu bạn chọn thư mục lịch nguồn và nhấp vào “OK”.
- Cuối cùng, khi macro kết thúc, bạn có thể thấy rằng tất cả các cuộc họp trong phạm vi ngày cụ thể đã bị hủy.
- Trong thư mục “Mục đã gửi”, bạn có thể tìm thấy thông tin hủy cuộc họp, như ảnh chụp màn hình bên dưới:
Sửa lỗi Outlook
Nếu bạn đã sử dụng Outlook trong nhiều thập kỷ, chắc hẳn bạn đã gặp phải một số lỗi. May mắn thay, Outlook được tích hợp sẵn một công cụ sửa chữa có sẵn – Scanpst. Bạn có thể sử dụng nó để sửa chữa Outlook lỗi. Tuy nhiên, nếu thất bại, giải pháp cuối cùng của bạn là các công cụ sửa lỗi bên ngoài như DataNumen Outlook RepairNó có thể quét các tập tin Outlook và sửa hầu hết các lỗi, thậm chí dễ dàng khôi phục dữ liệu Outlook bị hỏng.
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 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