Outlook: Bagaimana cara membatalkan rapat di kalender sebagai penyelenggara?
Di Outlook, sebagai penyelenggara rapat, saat Anda membatalkan rapat, rapat akan dihapus secara otomatis dari kalender. Dalam beberapa kasus, Anda mungkin ingin menyimpan rapat yang dibatalkan di kalender untuk melakukan beberapa penandaan. Namun, tidak ada fitur bawaan di Outlook yang dapat menangani pekerjaan ini. Dalam tutorial ini, ia menyediakan dua kode VBA untuk menyimpan rapat sebagai janji temu saat membatalkan.
Kode VBA untuk menyalin rapat yang dibatalkan sebagai janji temu
Kode VBA untuk menyalin rapat yang dibatalkan sebagai janji temu
Berikut adalah dua kode untuk membatalkan rapat dan menyalin dan menempelkannya sebagai janji temu pada saat yang bersamaan.
Catatan: sebelum Anda mengaktifkan kode, pastikan kedua opsi ini dicentang:
Aktifkan Outlook, klik File > Opsi, di jendela Opsi Outlook, klik Trust Center tab, dan klik Pengaturan Pusat Kepercayaan, lalu di jendela Pusat Kepercayaan, klik Pengaturan Makro tab, cek Aktifkan semua makro (tidak disarankan; kode yang berpotensi berbahaya dapat berjalan) serta Terapkan pengaturan keamanan makro ke add-in yang diinstal pilihan. Klik OK > OK untuk menutup jendela. Restart Pandangan.
1. Geser ke tampilan Kalender Outlook, dan pilih rapat yang ingin Anda batalkan Tekan lain + F11 kunci untuk mengaktifkan jendela Microsoft Visual Basic for Applications.
2. klik Menyisipkan > Modul untuk memasukkan modul kosong baru. Kemudian salin dan tempel kode di bawah ini ke dalamnya.
Kode: Salin rapat sebagai janji temu dan batalkan
Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.Subject = "Canceled: " & xMeetingItem.Subject
.Start = xMeetingItem.Start
.Duration = xMeetingItem.Duration
.Location = xMeetingItem.Location
.Body = xMeetingItem.Body
.Save
.Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
.MeetingStatus = olMeetingCanceled
.Send
.Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
3. klik Run tombol atau tekan F5 key, sekarang rapat yang dipilih telah dibatalkan dan janji temu baru bernama Dibatalkan & diputuskan.
Jika Anda ingin menyalin dan menempelkan rapat sebagai janji temu di kalender lain lalu membatalkan rapat, gunakan kode di bawah ini:
Kode: Salin rapat sebagai janji temu di kalender lain dan batalkan
Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.Subject = "Canceled: " & xMeetingItem.Subject
.Start = xMeetingItem.Start
.Duration = xMeetingItem.Duration
.Location = xMeetingItem.Location
.Body = xMeetingItem.Body
.Save
.Move xDestCalendar
End With
With xMeetingItem
.MeetingStatus = olMeetingCanceled
.Send
.Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
Klik Run tombol atau tekan F5 kunci, dialog Pilih Folder muncul bagi Anda untuk memilih folder kalender untuk menempelkan janji temu, lalu klik OK.
Sekarang rapat telah dibatalkan dan disalin dan ditempelkan sebagai janji temu di folder kalender yang Anda pilih.
Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!
- CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
- Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
- Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
- Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
- Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.

