Belki de Outlook'unuzda gecikmiş birçok randevunuz vardır. Bu yazıda, tüm gecikmiş randevuları hızlı bir şekilde silmek için 3 yaklaşımı paylaşacağız.
PST verilerinizi küçük boyutta tutmak ve takviminizi daha düzenli ve düzenli hale getirmek için, gecikmiş randevular, yani bugünden önce planlanmış randevular gibi işe yaramaz öğeleri Outlook'tan kaldırmanız gerekecektir. Outlook, bu tür randevuları belirlemek ve tek seferde silmek için doğrudan bir özellik sağlamaz. Bu nedenle, geciken randevuları hızlı bir şekilde bulmak ve silmek için size 3 numara tanıtacağız.
1: Gecikmiş Randevuları Manuel Olarak Kaldırın
- En başta, Outlook'u başlatın, "Takvim" bölmesine gidin ve belirli bir takvim klasörünü açın.
- Ardından “Görünüm” sekmesine geçin ve “Görünüm Ayarları” nı tıklayın.
- Açılan iletişim kutusunda, "Filtrele" düğmesine tıklayın.

- Ardından, gelişmiş görünüm filtreleri belirtmelisiniz.
- Öncelikle, Alan kutusuna "Başlangıç" yazın, "şu tarihte veya öncesinde" seçeneğini işaretleyin ve "değer" alanına "Dün" yazın.
- Sonra bir tane daha ekleyin - "Dün veya dünden önce".
- Ardından, takvime geri dönene kadar bir dizi "Tamam" ı tıklayın.
- Bundan sonra listede sadece geciken randevuların kaldığını göreceksiniz.
- Son olarak hepsini seçin ve “Sil” düğmesine basın.
2: Gecikmiş Randevuları Arşiv Yoluyla Kaldırın
- İlk etapta “Dosya” menüsüne dönün.
- Ardından “Temizleme Araçları” düğmesine tıklayın ve açılır listeden “Arşivle” seçeneğini seçin.
- Sonunda yeni açılan iletişim kutusunda aşağıdaki adımları izleyin:
- İlk olarak, "Takvim" i seçin.
- Ardından, "Şundan daha eski öğeleri arşivle:" alanına "Bugün" yazın.
- Daha sonra isteğe bağlı olarak “Gözat” butonu ile Arşiv PST dosyasını belirleyebilirsiniz.
- Son olarak arşivlemeyi başlatmak için "Tamam" düğmesine tıklayın.
3: Outlook VBA ile Gecikmiş Randevuları Kaldırma
- Başlangıç olarak, Outlook VBA editörüne erişmek için “Alt + F11” tuşlarına basın.
- Ardından bir sonraki pencerede yeni bir modül açmalısınız.
- Daha sonra aşağıdaki VBA kodlarını kopyalayıp modüle yapıştırabilirsiniz.
Sub DeleteAllOverDueAppointments()
Dim objAppointments As Outlook.Items
Dim objVariant As Variant
Set objAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
For i = objAppointments.Count To 1 Step -1
Set objVariant = objAppointments.Item(i)
'Specify the overdue appointments
If (objVariant.Start < Date) And (objVariant.End < Date) Then
objVariant.Delete
End If
Next
End Sub
- Ardından, makroyu başlatmak için araç çubuğundaki "Çalıştır" simgesine tıklayabilirsiniz.
- Tüm gecikmiş randevular bir anda takviminizden kaldırılacaktır.
Outlook Verilerinizi İyi Korumalı Tutun
Outlook'unuzda çok sayıda önemli e-posta veya kişi bulunduğundan, Outlook verilerinize büyük önem vermelisiniz. Bu nedenle, Outlook verilerinizi düzenli olarak yedeklemelisiniz. Ayrıca, hızlı bir şekilde geri almak için bozuk Outlook Outlook çöktükten sonra verileri korumak için yakınınızda seçkin bir araç bulundurmalısınız. DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql bozulması ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com



