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) dan 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.
Alat Produktivitas Kantor Terbaik
Kutools for Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
π§ Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
π¨ email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
π Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
π Antarmuka Ajaib: πLebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
π Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / πTampilkan Zona Waktu Pengirim ...
π©πΌβπ€βπ©π» Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.