Sekiranya anda ingin membatalkan semua mesyuarat yang dijadualkan dalam julat tarikh tertentu di Outlook, anda boleh menggunakan cara yang diperkenalkan dalam artikel ini. Ini dapat menyelamatkan anda dari mencari dan membatalkan mesyuarat tersebut secara manual.
Sekiranya, atas beberapa sebab, anda tidak dapat mengatur atau mengambil bahagian dalam mesyuarat yang akan diadakan dalam julat tarikh masa depan tertentu, anda mungkin ingin membatalkan semua pertemuan tersebut. Secara amnya, anda mesti mengetahuinya terlebih dahulu dan kemudian membatalkannya satu persatu. Ia akan menyusahkan. Oleh itu, berikut ini, kami akan berkongsi dengan anda cara lain, yang jauh lebih senang.
Kumpulan Batal Semua Mesyuarat Dijadualkan dalam Julat Tarikh Tertentu
- Pada mulanya, mulakan program Outlook anda.
- Kemudian, di Outlook, anda perlu menekan butang "Alt + F11".
- Seterusnya, anda akan masuk ke tetingkap "Microsoft Visual Basic for Applications".
- Di tetingkap ini, anda harus membuka modul yang tidak digunakan atau memasukkan yang baru.
- Selepas itu, anda boleh menyalin kod VBA berikut ke dalam modul ini.
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
- Akhirnya, anda boleh menjalankan makro ini sekarang.
- Di tetingkap makro semasa, tekan butang kekunci "F5".
- Seterusnya, anda akan diminta untuk menentukan julat tarikh.
- Selepas itu, kotak dialog lain akan dipaparkan, yang menuntut anda memilih folder kalendar sumber dan klik "OK".
- Terakhir, apabila makro selesai, anda dapat melihat bahawa semua mesyuarat dalam julat tarikh tertentu telah dibatalkan.
- Di folder "Item Terkirim", anda dapat menemui pembatalan mesyuarat, seperti tangkapan layar di bawah:
Betulkan Kesalahan Outlook
Sekiranya anda telah menggunakan Outlook selama beberapa dekad, anda pasti mengalami beberapa kesalahan. Nasib baik Outlook dilengkapi dengan alat pembaikan terbina dalam - Scanpst. Anda boleh menggunakannya untuk betulkan Outlook kesilapan. Namun, jika gagal, jalan terakhir anda adalah alat pembaikan luaran seperti DataNumen Outlook RepairIa boleh mengimbas fail Outlook dan membetulkan kebanyakan ralat, malah boleh memulihkan data Outlook yang rosak dengan mudah.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk betulkan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com