Outlook-Regel - Verschieben Sie E-Mails, die LESEN und älter als X Tage sind

Outlook 2010. Möchten Sie eine Regel erstellen, mit der alle E-Mails aus meinem Posteingang in einen anderen Ordner verschoben werden:

• Wurde gelesen
• Ist älter als X Tage

Ich habe die automatische Archivierung in Betracht gezogen, aber es scheint nicht so, als ob ich mit meinen Kriterien so spezifisch wäre.

Die beste Möglichkeit, die ich derzeit gefunden habe, besteht darin, einen neuen Suchordner mit benutzerdefinierten Kriterien zu erstellen, z. B. mit Elementen, die an oder vor einem bestimmten Datum geändert wurden. Ich klicke dann mit der rechten Maustaste auf den Ordner und wähle "Alle löschen", wodurch alle Elemente im Suchordner in den Papierkorb verschoben werden.

Die Suchordner sind die Antwort, jedoch fragte das OP nach E-Mails, die älter als ein bestimmtes Datum sind. Wenn Sie "Letzte Woche geändert" verwenden, werden alle Daten der letzten Woche angezeigt und alle Daten herausgefiltert, die älter als 1 Woche sind. Verwenden Sie für das Gegenteil eine Sprache wie:

• vor 8 Tagen
• Vor 1 Woche
• etc...

Ich hatte nach etwas Ähnlichem gesucht. Ich muss ein Makro verwenden, da die automatische Archivierung für meine Installation deaktiviert ist. Folgendes habe ich mir ausgedacht:

Option Explicit
Private Sub Application_MAPILogonComplete()
    ' this runs on app startup
    Const MSG_AGE_IN_DAYS = 7

    Dim oFolder As Folder
    Dim oFilteredItems As Outlook.Items
    Dim oItem As MailItem
    Dim oDate As Date

    oDate = DateAdd("d", -MSG_AGE_IN_DAYS, Now())
    oDate = Format(oDate, "mm/dd/yyyy")

    ' you can use this command to select a folder
    'Set oFolder = Application.Session.PickFolder

    Set oFolder = Me.Session.Folders.GetFirst

    ' shows all the folder names
    'For Each fldr In oFolder.Folders
    '    Debug.Print fldr.Name
    'Next fldr

    ' this was the sub-folder I wanted to cleanup.
    Set oFolder = oFolder.Folders("Storage").Folders("batch runs")

    Debug.Print "checking " & oFolder.FolderPath
    Debug.Print "for msgs older than " & oDate

    ' you can modify the filter to suit your needs
    Set oFilteredItems = oFolder.Items.Restrict("[Received] <= '" & oDate & "' And [Unread] = True")

    Debug.Print "removing " & oFilteredItems.Count & " items"

    While oFilteredItems.Count > 0
        Set oItem = oFilteredItems.GetFirst
        Debug.Print "   " & oItem.UnRead & " " & oItem.Subject

        ' the remove method permanently deletes the item.
        oFilteredItems.Remove 1
        'Debug.Print oFilteredItems.Count & " items left"
    Wend

    Debug.Print ". end"

    Set oFolder = Nothing
    Set oFilteredItems = Nothing
    Set oItem = Nothing
End Sub

Dieses Makro ist an die letzte Phase des Lebenszyklus der Anwendung angehängt. Es wird ausgeführt, wenn Outlook gestartet wird. Wahrscheinlich möchten Sie es auch signieren (und Ihrer Signatur vertrauen), damit Sie Sicherheitsbeschwerden erhalten.

HTH