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ü Başlattı!
Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Dolandırıcılık E-postalarını 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 Sihri: 😊Daha Fazla Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna 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...

