Note: The other languages of the website are Google-translated. Back to English

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


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.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydw i'n addasu'r cod i dargedu ffolder benodol?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir