Outlook で削除されたメッセージを自動的に既読にする方法は？

Microsoft Outlook で未読のメールを削除すると、そのメッセージは「削除済みアイテム」フォルダーに移動し、未読のままになります。なかには、ルールの実行などの目的で、削除されたメッセージを自動的に既読にしたいとお考えの方もいらっしゃるでしょう。ここでは、Microsoft Outlook で削除されたメッセージを既読にする方法をご紹介します。

すべての削除済みアイテムを手動で既読にする

削除済みアイテムを今すぐ既読にするをワンクリックで自動実行

VBA を使用して削除されたメッセージを自動的に既読にする

---

すべての削除済みアイテムを手動で既読にする

Microsoft Outlook では、ユーザーは削除済みアイテムフォルダーを含むメールフォルダー全体を簡単に既読にできます。

メールメッセージを削除した後、「ナビゲーション」で「削除済みアイテム」フォルダーを選択し、右クリックしてコンテキストメニューから「すべて既読にする」を選びます。下記のスクリーンショットをご参照ください：

---

削除済みアイテムを今すぐ既読にするをワンクリックで自動実行

サブフォルダー内の削除済みアイテムを既読にしたい場合や、アイテムを削除する際に自動的に既読にしたい場合は、どうすればよいでしょうか？そんなとき、「Kutools for Outlook」の「削除時に既読にする」ユーティリティがぴったりです。

1。「KUTOOLS PLUS」＞「ユーティリティ」＞「既読にする」＞「既読にするを有効化」をクリックしてください。

メインフォルダーとサブフォルダーの両方に存在する削除済みアイテムを既読にしますか？それともサブフォルダーを除外しますか？というダイアログボックスが表示されます。「はい」をクリックすると、メインフォルダーとサブフォルダーの両方が対象となり、「いいえ」をクリックすると、サブフォルダーは対象外となります。

その後、すべての削除済みアイテムが既読になることを知らせる確認ダイアログが表示されます。

さらに、未読のメールが削除され「削除済みアイテム」フォルダーに移動された場合、自動的に既読になります。

---

VBA を使用して削除されたメッセージを自動的に既読にする

このセクションでは、メッセージを削除した際に自動的にそのメッセージをすべて既読にする VBA マクロをご紹介します。

手順1：「Alt」キーと「F11」キーを同時に押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

手順2：左側のペインで「Project1」を展開し、「ThisOutlookSession」をダブルクリックして、空のウィンドウを開きます。

手順3：次の VBA コードを空のウィンドウに貼り付けてください。

VBA：削除されたメッセージを自動的に既読にする

Dim WithEvents g_OlkFolder As Outlook.Items
Private Sub Application_Quit()
Set g_OlkFolder = Nothing
End Sub
Private Sub Application_Startup()
Set g_OlkFolder = Session.GetDefaultFolder(olFolderDeletedItems).Items
End Sub
Private Sub g_OlkFolder_ItemAdd(ByVal Item As Object)
Item.UnRead = False
Item.Save
End Sub

手順4：VBA マクロを保存して、Microsoft Outlook を再起動してください。

注：この VBA マクロは Microsoft Outlook 2013 でのみ動作し、デフォルトのデータファイル内の「削除済みアイテム」を今すぐ既読にする場合にのみ適用されます。

これ以降、手動またはルールによる自動処理でメールを削除した場合、未読の削除済みメールは「削除済みアイテム」フォルダー内で即座に既読になります。