VBAを使用してすべてのOutlookフォルダですべての電子メールを既読としてバッチマークする方法

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

複数のユーザーが、すべてのメールを既読としてバッチマークするソリューションを望んでいます すべてのOutlookフォルダ内。この記事では、そのような方法を紹介します。

ご存知のとおり、フォルダ内のすべてのメールを既読としてマークするのは簡単です。フォルダを選択して右クリックし、コンテキストメニューで[すべてを既読にする]オプションを選択するだけです。ただし、未読メールのあるフォルダが複数ある場合は、上記の方法で、フォルダをXNUMXつずつ実行する必要があります。面倒すぎる。したがって、ここでは、はるかに効率的な方法を共有します。これにより、それをまとめて実現できます。

すべての電子メールをすべてのOutlookフォルダで既読としてバッチマークする

にtarで、Outlookアプリケーションを起動します。
次に、「Alt + F11」を押して、OutlookVBAエディターにアクセスします。
次に、「Microsoft Visual Basic for Applications」ウィンドウで、以下のコードを未使用のモジュールにコピーします。

Sub MarkAllItemsAsRead()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process all Outlook files
    Set objStores = Outlook.Application.Session.Stores
  
    For Each objStore In objStores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            'Process mail folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objUnreadItems As Outlook.Items
    Dim i As Integer
    Dim objItem As Object
    Dim objSubFolder As Outlook.Folder
 
    Set objUnreadItems = objCurFolder.Items.Restrict("[Unread]=True")
 
    'Mark all unread emails as read
    For i = 1 To objUnreadItems.Count
        Set objItem = objUnreadItems.Item(i)
        objItem.UnRead = False
        objItem.Save
    Next
 
    'Process subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

その後、カーソルを最初のサブルーチンに置きます。
続いて、「F5」キーボタンを押すか、ツールバーの「実行」アイコンをクリックします。
最終的に、マクロが完了した後、メールフォルダリストに戻ることができます。
スクリーンショットに示すように、未読のメールがすべて既読としてマークされていることがわかります。

悲惨な見通しのデータ損失からの脱出

ユーザーは、Word文書やExcelブックが簡単に破損する可能性があるという事実を受け入れている可能性があります。実際のところ、これらのファイルと同様に、Outlookのデータファイルも破損する傾向があります。したがって、それを体験することに抵抗がある場合は、いくつかの行動を取る必要があります。定期的なバックアップやすべてのマルウェアやウイルスのブロックなどの予防措置と、受信トレイ修復ツールの起動方法を知るなどのいくつかの救済措置を含める必要があります。スキャンプスト次のような強力な外部修正ツールを維持します DataNumen Outlook Repair.

著者紹介：

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