Outlook'ta belirli günlerden daha eski okunmamış e-postaları otomatik olarak okundu olarak nasıl işaretleyebilirim?
Gelen Kutusu klasörünüzde birden fazla okunmamış e-posta varsa, normalde okunmamış tüm e-postaları manuel olarak okunmuş e-postalar olarak işaretlemek için Tümünü Okundu Olarak İşaretle özelliğini uygulayabilirsiniz. Ancak, belirli günlerden daha eski olan okunmamış e-postaları, her seferinde manuel olarak ayarlamadan Outlook'ta otomatik olarak okundu olarak işaretlemeyi hiç denediniz mi?
Belirli günlerden eski okunmamış e-postaları VBA kodu ile otomatik olarak okundu olarak işaretleyin
Belirli günlerden eski okunmamış e-postaları VBA kodu ile otomatik olarak okundu olarak işaretleyin
Belirli günlerden daha eski tüm okunmamış e-postaları okundu olarak otomatik olarak işaretlemek için aşağıdaki VBA kodu size bir iyilik yapabilir:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.
VBA kodu: Belirli günlerden daha eski okunmamış e-postaları okunduğu gibi otomatik olarak işaretleyin:
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 komut dosyası içindeki gün sayısını değiştirebilirsiniz: DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 ise Sonra kendi ihtiyaçlarınıza göre.
3. Ardından bu kod penceresini kaydedin ve kapatın, o zamandan beri Outlook'u her başlattığınızda, önceden tanımlanmış günlerden daha eski olan tüm okunmamış e-postalar bir seferde otomatik olarak okundu olarak işaretlenecektir.
not: Bu kod yalnızca varsayılan data hesabı için mevcuttur.
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.