Note: The other languages of the website are Google-translated. Back to English

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.

doc tetap rapat di kalender 1

doc tetap rapat di kalender 2

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

doc tetap rapat di kalender 3

3. klik Run tombol atau tekan F5 key, sekarang rapat yang dipilih telah dibatalkan dan janji temu baru bernama Dibatalkan & diputuskan.

doc tetap rapat di kalender 4

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.

doc tetap rapat di kalender 5

Sekarang rapat telah dibatalkan dan disalin dan ditempelkan sebagai janji temu di folder kalender yang Anda pilih.

doc tetap rapat di kalender 6


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.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL