Outlook'ta belirli günlerden eski okunmamış e-postaları otomatik olarak nasıl okundu olarak işaretlersiniz?
Gelen Kutusu klasörünüzde birden fazla okunmamış e-posta varsa, normalde tümünü okundu olarak işaretlemek için 'Tümünü Okundu Olarak İşaretle' özelliğini manuel olarak uygulayabilirsiniz. Ancak, her seferinde manuel olarak ayarlamadan Outlook'ta belirli günlerden eski okunmamış e-postaları otomatik olarak okundu olarak işaretlemeyi denediniz mi?
VBA kodu ile belirli günlerden eski okunmamış e-postaları otomatik olarak okundu olarak işaretleme
VBA kodu ile belirli günlerden eski okunmamış e-postaları otomatik olarak okundu olarak işaretleme
Belirli günlerden eski tüm okunmamış e-postaları otomatik olarak okundu olarak işaretlemek için aşağıdaki VBA kodu size yardımcı olabilir:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayarak modu açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.
VBA Kodu: Belirli günlerden eski okunmamış e-postaları otomatik olarak okundu olarak işaretle:
Private Sub Application_Startup()
Call MarkOldUnreadEmailsAsRead
End Sub
Private Sub MarkOldUnreadEmailsAsRead()
Dim xInboxFld As Outlook.Folder
Dim xAccount As Account
On Error GoTo L1
For Each xAccount In Outlook.Application.Session.Accounts
Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
Call Processfolders(xInboxFld)
Next xAccount
L1: Exit Sub
End Sub
Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
Dim xItems As Outlook.Items
Dim i As Long
Dim xSubFld As Outlook.Folder
On Error Resume Next
Set xItems = InboxFld.Items
For i = 1 To xItems.Count
If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
If xItems(i).UnRead = True Then
xItems(i).UnRead = False
xItems(i).Save
End If
End If
Next
If InboxFld.Folders.Count > 0 Then
For Each xSubFld In InboxFld.Folders
Call Processfolders(xSubFld)
Next
End If
End Sub
Not: Yukarıdaki kodda, bu betiğin içindeki gün sayısını değiştirebilirsiniz: If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then kendi ihtiyaçlarınıza göre.

3. Ardından bu kod penceresini kaydedip kapatın, bundan sonra Outlook'u her başlattığınızda, önceden tanımlanmış günlerden eski tüm okunmamış e-postalar hemen otomatik olarak okundu olarak işaretlenecektir.
Not: Bu kod yalnızca varsayılan veri hesabı için geçerlidir.
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!
📧 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 İ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