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

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 - Office'te Sekmeli Düzenleme ve Taramayı Etkinleştirin ve Çalışmayı Çok Daha Kolay Hale Getirin ...
Kutools for Outlook - Microsoft Outlook'a 100 Güçlü Gelişmiş Özellik Getiriyor
  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Kurallara göre Birden Fazla E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - posta adresiniz BCC listesindeyse tümünü yanıtlamaya çalıştığınızda mesajı gösterin; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Tüm Eklerle Yanıtla (Hepsi) posta görüşmesinde; Birçok E-postayı aynı anda yanıtlayın; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Otomatik Tarih ve Saat Ekle ...
  • Ek Araçları: Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Otomatik Kaydet ... Hızlı rapor, Seçilen Postaları Say, Yinelenen Postaları ve Kişileri Kaldır ...
  • 100'den fazla gelişmiş özellik problemlerinin çoğunu çöz Outlook 2010-2019 ve 365'te. Tam özellikleri 60 günlük ücretsiz deneme.

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.

doc yinelenen takvim öğelerini kaldır 1

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

doc yinelenen takvim öğelerini kaldır 1

doc yinelenen takvim öğelerini kaldır 1

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.

doc yinelenen takvim öğelerini kaldır 1

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.

doc yinelenen takvim öğelerini kaldır 1


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.

doc yinelenen takvim öğelerini kaldır 1

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 doc yinelenen takvim öğelerini kaldır 1 .

doc yinelenen takvim öğelerini kaldır 1

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ı.

doc yinelenen takvim öğelerini kaldır 1

doc yinelenen takvim öğelerini kaldır 1

not: VBA'nın üstünde takvim klasöründe çalışır alt klasörü içerir.


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 yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0  Karakterler
Önerilen Konumlar