Loncat ke daftar isi utama

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

Penulis: Matahari Terakhir Dimodifikasi: 2022-12-22

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.

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


Alat Produktivitas Kantor Terbaik

Berita Terkini: Kutools untuk Outlook Diluncurkan Versi gratis!

Buka 100+ fitur canggih dengan uji coba gratis 30 hari; 70+ tetap gratis selamanya setelah uji coba. Klik untuk melihat semua fitur gratis!

๐Ÿค– Kutools AI : Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...

๐Ÿ“ง Email Otomatis: Balasan Otomatis (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: Ingat Email  /  Blokir Email Penipuan berdasarkan Subjek dan Lainnya  /  Hapus Email Duplikat  /  Pencarian  /  Konsolidasi Folder ...

๐Ÿ“ Lampiran ProPenyimpanan Batch  /  Pelepasan Batch  /  Kompres Batch  /  Penyimpanan otomatis   /  Lepaskan Otomatis  /  Kompres Otomatis ...

๐ŸŒŸ Antarmuka Ajaib: ๐Ÿ˜ŠLebih Banyak Emoji Cantik dan Keren   /  Mengingatkan Anda ketika email penting datang  /  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 ...

Buka kunci Kutools for Outlook secara instan dengan satu klikโ€”gratis secara permanen. Jangan menunggu, unduh sekarang dan tingkatkan efisiensi Anda!

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations