Jika Anda ingin membatalkan semua rapat yang dijadwalkan dalam rentang tanggal tertentu di Outlook Anda, Anda dapat menggunakan cara yang diperkenalkan di artikel ini. Ini dapat menyelamatkan Anda dari mencari dan membatalkan pertemuan semacam itu secara manual.
Jika, karena alasan tertentu, Anda tidak dapat mengatur atau berpartisipasi dalam rapat yang akan diadakan pada rentang tanggal tertentu di masa mendatang, Anda mungkin ingin membatalkan semua rapat tersebut. Umumnya, Anda harus mencari tahu terlebih dahulu lalu membatalkannya satu per satu. Ini akan sangat merepotkan. Oleh karena itu, berikut ini, kami akan membagikan kepada Anda cara lain, yang jauh lebih nyaman.
Batch Membatalkan Semua Rapat yang Dijadwalkan dalam Rentang Tanggal Tertentu
- Pertama-tama, jalankan program Outlook Anda.
- Kemudian, di Outlook, Anda perlu menekan tombol "Alt + F11".
- Selanjutnya, Anda akan masuk ke jendela "Microsoft Visual Basic for Applications".
- Di jendela ini, Anda harus membuka modul yang tidak digunakan atau hanya memasukkan yang baru.
- Selanjutnya, Anda dapat menyalin kode 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 dapat menjalankan makro ini sekarang.
- Di jendela makro saat ini, tekan tombol "F5".
- Selanjutnya, Anda akan diminta untuk menentukan rentang tanggal.
- Setelah itu, kotak dialog lain akan ditampilkan, yang meminta Anda untuk memilih folder kalender sumber dan klik "OK".
- Terakhir, ketika makro selesai, Anda dapat melihat bahwa semua pertemuan dalam rentang tanggal tertentu telah dibatalkan.
- Di folder "Item Terkirim", Anda dapat menemukan pembatalan rapat, seperti gambar di bawah ini:
Perbaiki Kesalahan Outlook
Jika Anda telah menggunakan Outlook selama beberapa dekade, Anda pasti mengalami beberapa kesalahan. Untungnya Outlook hadir dengan alat perbaikan bawaan - Scanpst. Anda bisa menggunakannya untuk perbaiki Outlook kesalahan. Namun, jika gagal, pilihan terakhir Anda adalah alat perbaikan eksternal seperti DataNumen Outlook RepairAplikasi ini dapat memindai file Outlook dan memperbaiki sebagian besar kesalahan, bahkan dengan mudah memulihkan data Outlook yang rusak.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com