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

Author: Sun Last Modified: 2025-06-10

Bazen, diğer cihazlardan etkinlikleri içe aktardığımızda bazı yinelenen takvim öğeleri bulunur. Yinelenen takvim öğelerini kaldırmak için bu öğretici iki farklı yöntemi tanıtmaktadır; biri yinelenen öğeler az olduğunda tek tek kaldırmayı içerir, diğeri ise tüm yinelenenleri bir seferde kaldırmak için VBA kullanır.

Yinelenen takvim öğelerini manuel olarak tek tek kaldırma

VBA ile yinelenen takvim öğelerini bir seferde kaldırma

Yinelenen takvim öğelerini manuel olarak tek tek kaldırma

Yinelenen takvim öğelerini tek tek kaldırmak için, önce yinelenenleri net bir şekilde görebilmek için belirli bir sıraya göre listelemeniz gerekir, ardından bunları teker teker kaldırabilirsiniz.

1. Genellikle takvim "Takvim" görünümündedir, yinelenenleri kaldırmak istediğiniz takvimi etkinleştirin, ardından "Görünüm" > "Görünümü Değiştir" > "Liste"'ye tıklayın.

steps on manually removing duplicates calendar items one by one

Şimdi takvim bir liste olarak görüntülenmektedir.

2. Daha sonra öğelerin yinelenen olup olmadığını karşılaştırmak için bir koşul belirtin, konularının aynı olup olmadığını kontrol etmeyi varsayalım. Takvim listesindeki "KONU"ya tıklayın, ardından aynı konuya sahip tüm öğeler bir araya getirilir.

3. Şimdi aynı konuya sahip öğeleri tek tek sağ tıklayıp açılan içerik menüsünden "Sil" seçeneğine tıklayarak kaldırabilirsiniz.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

Akıllı e-posta yanıtları
Optimize edilmiş içerik
Anahtar kelimeye dayalı taslaklar
Akıllı içerik genişletme
E-posta özetleme
Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın

VBA ile yinelenen takvim öğelerini bir seferde kaldırma

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

1. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini etkinleştirin.

2. "Ekle" > "Modül"'e tıklayarak yeni boş bir modül oluşturun, ardından aşağıdaki kodu modüle kopyalayıp yapıştırın.

VBA: Belirli bir kategorideki tüm yinelenen takvim öğelerini kaldırma

'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, konu, konum, içerik ve kategori karşılaştırılarak "tarih" kategorisindeki tüm yinelenenler kaldırılacaktır, bunları ihtiyaçlarınıza göre değiştirebilirsiniz.

steps on using VBA to remove duplicates calendar items at once time

3. Ardından "F5" tuşuna basın veya Kodu Çalıştır'ı tıklayın, bir "Makrolar" iletişim kutusu açılır, "RemoveDuplicateCalendar" seçip "Çalıştır"'a tıklayın. .

Ardından "tarih" kategorisindeki yinelenen öğeler kaldırılmıştır.

VBA: Kategoriler arasında tüm yinelenen takvim öğelerini kaldırma

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, içerik ve kategoride olan tüm yinelenenler kaldırılmış olacaktır.