特定の日後に特定の送信者からOutlookの電子メールを自動削除する方法

Outlookソリューション 2025 年 9 月 29 日

Outlookで特定の日付の特定の送信者からの電子メールを自動削除できるようにするには、この記事を読むことができます。ここでは、VBAコードを使用して取得するための詳細な手順を示します。

電子メールの自動削除に関しては、最初に「自動アーカイブ」機能について考えるかもしれません。ただし、電子メールを自動アーカイブする場合、特定の送信者をフィルタリングすることはできません。したがって、たとえば、x日後に特定の送信者からの電子メールを自動削除する場合は、次のような他の手段を使用する必要があります。

X日後に特定の送信者からのメールを自動削除する

まず最初に、Outlookアプリケーションを起動してください。
次に、「次のようにOutlookVBAエディターをトリガーします。OutlookでVBAコードを実行する方法"
次に、次のVBAコードを「ThisOutlookSession」プロジェクトにコピーします。

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
 
    Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'From the specific sender
       If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
          'Set expiry time - after 5 days
          objMail.ExpiryTime = objMail.ReceivedTime + 4
          objMail.Save
       End If
    End If
End Sub

Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
    Dim strFilter As String
    Dim objExpiredItems As Outlook.Items
    Dim objExpiredMail As Outlook.MailItem
 
    strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
 
    'Get all expired items
    Set objExpiredItems = objInboxItems.Restrict(strFilter)
 
    For i = objExpiredItems.Count To 1 Step -1
        If objExpiredItems(i).Class = olMail Then
           Set objExpiredMail = objExpiredItems(i)
 
           'Auto delete expired emails from the specific sender
           If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
              objExpiredMail.Delete
           End If
        End If
    Next
End Sub

その後、Outlookを再起動してこのマクロを有効にしてください。
それ以降、特定の送信者からの新しい電子メールが受信トレイに到着するたびに、特定の有効期限（受信後の特定の日）が割り当てられます。
そうすれば、Outlookを起動するたびに、Outlookは特定の送信者からの期限切れメールを自動的にチェックして削除します。

破損後にOutlookデータを復元する

おそらく、Outlookでさまざまなエラーや問題が発生した可能性があります。次に、Outlookの破損に直面したことがありますか？たとえば、Outlookを不適切に頻繁に終了すると、PSTファイルが破損する傾向があります。通常、このような場合は、バックアップからOutlookデータを取得することを選択できます。または、どちらかを使用できます受信トレイ修復ツールまたは、などの信頼できる外部ツール DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを回復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com