Outlook: İptal toplantısını düzenleyici olarak takvimde nasıl tutabilirim?

Outlook'ta, bir toplantı düzenleyicisi olarak, toplantıyı iptal ettiğinizde, toplantı takvimden otomatik olarak silinir. Bazı durumlarda, bazı işaretler yapmak için iptal edilen toplantıları takvimde tutmak isteyebilirsiniz. Ancak, Outlook'ta bu işi halledebilecek hiçbir yerleşik özellik yoktur. Bu eğitimde, toplantıyı iptal ederken randevu olarak tutmak için iki VBA kodu sağlar.

İptal edilen toplantıyı randevu olarak kopyalamak için VBA kodları

İptal edilen toplantıyı randevu olarak kopyalamak için VBA kodları

İşte toplantıyı iptal etmek ve aynı anda randevu olarak kopyalayıp yapıştırmak için iki kod.

Not: Kodu etkinleştirmeden önce, lütfen bu iki seçeneğin işaretli olduğundan emin olun:

Outlook'u etkinleştirin, tıklayın fileto > Opsiyonlar, Outlook Seçenekleri penceresinde, Güven Merkezi sekmesini tıklayın ve tıklayın. Güven Merkezi Ayarları, ardından Güven Merkezi penceresinde Makro Ayarları sekme, kontrol et Tüm makroları etkinleştirin (önerilmez; potansiyel olarak tehlikeli kod çalışabilir) ve Yüklü eklentilere makro güvenlik ayarlarını uygulayın seçenekler. Click OK > OK pencereleri kapatmak için. Yeniden Görünüm.

1. Outlook Takvim görünümüne geçin ve iptal etmek istediğiniz toplantıyı seçin Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini etkinleştirmek için tuşlar.

2. tık Ekle > modül Yeni bir boş modül eklemek için. Ardından aşağıdaki kodu kopyalayıp yapıştırın.

Kod: Toplantıyı randevu olarak kopyala ve iptal et

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. tık koşmak tuşuna basın veya tuşuna basın. F5 tuşu, şimdi seçilen toplantı iptal edildi ve İptal Edildi ve konu adlı yeni bir randevu.

Toplantıyı başka bir takvimde randevu olarak kopyalayıp yapıştırmak ve ardından toplantıyı iptal etmek istiyorsanız aşağıdaki kodu kullanın:

Kod: Toplantıyı başka bir takvimde randevu olarak kopyala ve iptal et

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

Tıkla koşmak tuşuna basın veya tuşuna basın. F5 tuşuna bastığınızda, randevuyu yapıştırmak üzere bir takvim klasörü seçmeniz için bir Klasör Seç iletişim kutusu açılır ve ardından Tamam'a tıklayın.