Outlook VBA、90日以上経過したメールのみを削除する方法

Question

特定のフォルダ内のすべてのメールを削除するコードがありますが、90日以上経過したメールを削除する必要があり、私を助けることができるだろう、私は下にコードを記載している;

Answer 1

Ifステートメントを追加すると、現在の日付とループ内の各電子メールの送信日を比較できます。

変更し、次のようにループの場合oItems：

For i = oItems.Count To 1 Step -1 
    If DateDiff("d", oItems.Item(i).SentOn, Now) > 90 Then 
     oItems.Item(i).Delete 
    End If 
Next