Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur markerar jag olästa e-postmeddelanden som är äldre än specifika dagar som lästa automatiskt i Outlook?

Om det finns flera olästa e-postmeddelanden i mappen Inkorgen kan du normalt använda funktionen Markera alla som lästa för att markera alla olästa e-postmeddelanden som lästa e-postmeddelanden manuellt. Men har du någonsin försökt markera olästa e-postmeddelanden som är äldre än specifika dagar som lästa automatiskt i Outlook utan att ställa in det manuellt varje gång?

Markera olästa e-postmeddelanden som är äldre än specifika dagar som lästa automatiskt med VBA-kod


Markera olästa e-postmeddelanden som är äldre än specifika dagar som lästa automatiskt med VBA-kod

För att automatiskt markera alla olästa e-postmeddelanden som är äldre än specifika dagar som lästa kan följande VBA-kod göra dig en tjänst:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka ThisOutlookSession från Project1 (VbaProject.OTM) för att öppna läget och kopiera och klistra sedan in koden nedan i den tomma modulen.

VBA-kod: Markera automatiskt olästa e-postmeddelanden som är äldre än specifika dagar som lästa:

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

Anmärkningar: I ovanstående kod kan du ändra antalet dagar inom detta skript: Om DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Sedan till dina egna behov.

3. Spara och stäng sedan det här kodfönstret, sedan dess, varje gång när du startar Outlook, kommer alla olästa e-postmeddelanden som är äldre än fördefinierade dagar att markeras som lästa automatiskt på en gång.

Anmärkningar: Den här koden är endast tillgänglig för standarddatakontot.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ani · 10 months ago
    How do I modify the code to target a specific folder?