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

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.

doc takvimde toplantıya devam et 1

doc takvimde toplantıya devam et 2

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

doc takvimde toplantıya devam et 3

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.

doc takvimde toplantıya devam et 4

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.

doc takvimde toplantıya devam et 5

Artık toplantı iptal edildi ve kopyalanıp seçtiğiniz takvim klasörüne randevu olarak yapıştırıldı.

doc takvimde toplantıya devam et 6


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorumlarınızı İngilizce olarak bırakın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır