Cum să marcați e-mailurile necitite mai vechi de anumite zile ca citite automat în Outlook?

Autor: Xiaoyang Ultima modificare: 2018-04-10

Dacă în folderul Mesaje primite există mai multe e-mailuri necitite, în mod normal, puteți aplica caracteristica Marcați toate ca citite pentru a marca manual toate e-mailurile necitite ca e-mailuri citite. Dar, ați încercat vreodată să marcați e-mailurile necitite care sunt mai vechi de anumite zile ca citite automat în Outlook fără a le seta manual de fiecare dată?

Marcați e-mailurile necitite mai vechi de anumite zile ca citite automat cu codul VBA

Marcați e-mailurile necitite mai vechi de anumite zile ca citite automat cu codul VBA

Pentru a marca automat toate e-mailurile necitite mai vechi de anumite zile ca fiind citite, următorul cod VBA vă poate face o favoare:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți codul de mai jos în modulul gol.

Cod VBA: marcați automat citit mesajele e-mail necitite mai vechi de anumite zile:

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

notițe: În codul de mai sus, puteți modifica numărul de zile din acest script: Dacă DateDiff ("d", xItemsems (i) .ReceivedTime, Now)> = 15 "Atunci după nevoile tale.

3. Apoi salvați și închideți această fereastră de cod, de atunci, de fiecare dată când lansați Outlook, toate e-mailurile necitite care sunt mai vechi decât zilele predefinite vor fi marcate ca citite automat simultan.

notițe: Acest cod este disponibil numai pentru contul de date implicit.