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

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.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Kako spremenim kodo, da cilja na določeno mapo?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije