Outlook: Yinelenen takvim öğeleri nasıl kaldırılır

Bazen, diğer cihazlardan etkinlikleri içe aktardığımızda yinelenen bazı takvim öğeleri olabilir. Yinelenen takvim öğelerini kaldırmak için bu öğretici, iki farklı yöntem sunar; biri yinelenenler daha az olduğunda tek tek kaldırmak, diğeri ise tüm yinelenenleri bir kerede kaldırmak için VBA kullanmaktır.

Yinelenen takvim öğelerini tek tek manuel olarak kaldırın

Yinelenen takvim öğelerini bir kerede kaldırmak için VBA

Office Sekmesi - Microsoft Office'te Sekmeli Düzenlemeyi ve Göz Atmayı Etkinleştirerek Çalışmayı Kolaylaştırın

Devamı ...Indirin ...

Kutools for Outlook - Üstün Verimlilik için Outlook'u 100'den Fazla Gelişmiş Özellikle Güçlendirin

E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...

Bu gelişmiş özelliklerle Outlook 2021 - 2010 veya Outlook 365'inizi güçlendirin. Kapsamlı 60 günlük ücretsiz deneme sürümünün keyfini çıkarın ve e-posta deneyiminizi geliştirin!

Devamı ...Indirin ...

Yinelenen takvim öğelerini tek tek manuel olarak kaldırın

Yinelenen takvim öğelerini tek tek kaldırmak için, yinelenenleri önce net bir şekilde görüntülemek için belirli bir sırayla listelemeniz, ardından tek tek kaldırmanız gerekir.

1. Genellikle, takvim bir Takvim görüntüleyin, kopyaları kaldırmak istediğiniz takvimi etkinleştirin ve ardından Görüntüle > Görünümü değiştir > Liste.

Artık takvim bir liste olarak görüntülendi.

2. Ardından, öğelerin aynı konuya sahip olduğunu varsayarak, öğelerin kopya olup olmadığını karşılaştırmak için kullandığınız bir koşul belirtin. Tıklamak KONU takvim listesinde, aynı konuya sahip tüm öğeler birlikte yerleştirilir.

3. Artık aynı konuya sahip öğeleri, öğenin üzerine sağ tıklayıp simgesine tıklayarak tek tek kaldırabilirsiniz. Sil açılan içerik menüsünden.

Yinelenen takvim öğelerini bir kerede kaldırmak için VBA

Burada, farklı durumlarda bir takvim klasöründeki tüm yinelenen takvim öğelerini kaldırabilen bazı VBA'lar tanıtılmaktadır.

1. Basın Ara Toplam + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül yeni bir boş modül oluşturmak için aşağıdaki kodu kopyalayıp modüle yapıştırın.

VBA: belirli bir kategorideki tüm yinelenen takvim öğelerini kaldırın

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Bu VBA'da, " içindeki tüm kopyaları kaldıracaktır.tarihBu kategoriyi konu, konum, beden ve kategoriyi karşılaştırarak ihtiyacınıza göre değiştirebilirsiniz.

3. ardından düğmesine basın F5 tuşuna basın veya kodu çalıştırmak için Çalıştır'a tıklayın, bir iletişim kutusu Makrolar çıkar, seç KaldırDuplicateCalendar ve tıklayın koşmak .

Ardından “tarih” kategorisindeki yinelenen öğeler kaldırıldı.

VBA: kategoriler arasında tüm yinelenen takvim öğelerini kaldırın

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Bu kodu çalıştırın, her kategoride aynı konu, konum, gövde, kategorideki tüm kopyalar kaldırıldı.