Sut i farcio e-byst heb eu darllen sy'n hŷn na diwrnodau penodol fel y'u darllenir yn awtomatig yn Outlook?
Os oes sawl e-bost heb ei ddarllen yn eich ffolder Mewnflwch, fel arfer, gallwch gymhwyso'r nodwedd Mark All as Read i farcio pob e-bost heb ei ddarllen fel e-byst darllen â llaw. Ond, a ydych erioed wedi ceisio marcio e-byst heb eu darllen sy'n hŷn na diwrnodau penodol fel y'u darllenir yn awtomatig yn Outlook heb eu gosod â llaw bob tro?
Marciwch e-byst heb eu darllen yn hŷn na diwrnodau penodol fel y'u darllenir yn awtomatig gyda chod VBA
I farcio pob e-bost heb ei ddarllen yn hŷn na diwrnodau penodol fel y'i darllenwyd, gall y cod VBA canlynol ffafrio chi:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod isod i'r modiwl gwag.
Cod VBA: Marcio e-byst heb eu darllen yn hŷn na diwrnodau penodol fel y darllenir:
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
Nodyn: Yn y cod uchod, gallwch newid nifer y dyddiau yn y sgript hon: Os DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 yna i'ch anghenion chi eich hun.
3. Yna arbedwch a chau y ffenestr god hon, ers hynny, bob tro y byddwch chi'n lansio Outlook, bydd pob e-bost heb ei ddarllen sy'n hŷn na diwrnodau wedi'u diffinio ymlaen llaw yn cael ei farcio fel ei fod yn cael ei ddarllen yn awtomatig ar unwaith.
Nodyn: Mae'r cod hwn ar gael i'r cyfrif data diofyn yn unig.
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.