Kako označiti neprebrana e-poštna sporočila, starejša od določenih dni, kot samodejno prebrana v Outlooku?
Če je v mapi Prejeto več neprebranih e-poštnih sporočil, lahko običajno uporabite funkcijo Označi vse kot prebrano, da vse neprebrane e-pošte ročno označite kot prebrana e-poštna sporočila. Ali ste že kdaj poskusili neprebrano e-pošto, ki je starejša od določenih dni, samodejno prebrati v Outlooku, ne da bi jo vsakič nastavili ročno?
Neprebrana e-poštna sporočila, starejša od določenih dni, označite kot samodejno prebrana s kodo VBA
Neprebrana e-poštna sporočila, starejša od določenih dni, označite kot samodejno prebrana s kodo VBA
Če želite neprebrana e-poštna sporočila, starejša od določenih dni, samodejno označiti kot prebrana, vam lahko z naslednjo kodo VBA naredite uslugo:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa kopirajte in prilepite spodnjo kodo v prazen modul.
Koda VBA: neprebrano e-pošto, starejšo od določenih dni, samodejno označi kot prebrano:
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
Opombe: V zgornji kodi lahko spremenite število dni v tem skriptu: Če DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Potem po svoje.
3. Nato shranite in zaprite to okno kode, saj bodo od takrat vsakič, ko zaženete Outlook, vsa neprebrana e-poštna sporočila, ki so starejša od vnaprej določenih dni, hkrati označena kot samodejno prebrana.
Opombe: Ta koda je na voljo samo za privzeti podatkovni račun.
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.