Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

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

Author Sun Last modified

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.

steps on manually removing duplicates calendar items one by one
steps on manually removing duplicates calendar items one by one

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.

steps on manually removing duplicates calendar items one by one

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.

steps on manually removing duplicates calendar items one by one

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.
doc ai email handle

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.steps on using VBA to remove duplicates calendar items at once time .

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

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.

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

Not: Yukarıdaki VBA alt klasörleri de içeren takvim klasöründe çalışmaktadır.


En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı kolayca yönetir; yanıtlama, özetleme, optimize etme, uzatma, çeviri ve e-posta oluşturma işlemlerini zahmetsizce gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...

🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!

Tek tıkla Kutools for Outlook'u anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2

🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

  • Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
  • 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
  • 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint