Outlookルール-読み取り済みでX日より古いメールを移動する

Outlook2010。すべてのメールを受信トレイから別のフォルダーに移動するルールを作成する場合：

• 読んだ
• X日より古い

私はオートアーカイビングを見ていましたが、それは私の基準でこれを具体的にさせているようには思えません。

現時点でこれを実現するための最良の方法は、特定の日付またはそれ以前に変更されたアイテムなど、カスタム条件で新しい検索フォルダーを作成することです。次に、フォルダーを右クリックして[すべて削除]を選択します。これにより、検索フォルダー内のすべてのアイテムがビンに送信されます。

検索フォルダーが答えですが、OPは特定の日付より古いメールについて尋ねました。「修正された先週」を使用すると、先週のすべてが表示され、1週間より古いものは除外されます。逆の場合は、次のような言語を使用します。

• 8日前
• 1週間前
• 等...

私は似たようなものを探していました。自動アーカイブがインストールで無効になっているため、マクロを使用する必要があります。ここに私が思いついたものがあります：

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

このマクロは、アプリケーションのライフサイクルの最後のフェーズに添付されます。Outlookの起動時に実行されます。セキュリティに関する苦情が発生するように、おそらく署名する（および署名を信頼する）こともできます。

HTH