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.