特定の日付より古いすべてのOutlook電子メールを既読としてバッチマークする2つの方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

複数の古い電子メールをOutlookにインポートし、これらの電子メールが「未読」ステータスになっている場合は、それらを既読としてバッチマークする必要があります。 さて、この記事では、2つの簡単な方法を紹介します。

場合によっては、複数の電子メールを既読としてバッチマークする必要があります。 たとえば、古いPSTファイルがあります。このファイルには古いメールがたくさん含まれています。 次に、電子メールを独自のOutlookPSTファイルにインポートします。 ただし、インポート後、これらの電子メールはデフォルトで「未読」として表示されます。 現時点では、特定の日付より古いこれらのメールを既読としてバッチマークする必要があります。 ここでは、2つの便利で効率的なアプローチを共有するためのこの要件について説明します。

方法1：見つかった電子メールを手動で読み取ったものとしてバッチマークする

  1. としてtart、メールフォルダを開きます。
  2. 次に、検索ボックスをクリックします。
  3. 次に、「検索」リボンで、「スコープ」グループの「すべてのメールアイテム」ボタンをクリックします。
  4. その後、検索ボックスに「送信済み：<= 2018/5/21」という条件を入力します。 「2018/5/12」をご希望の日付に変更してください。特定の日付より古いメールを検索する
  5. 検索が完了したら、「Ctrl + A」で見つかったすべてのメールアイテムを選択します。
  6. 最後に、右クリックして「広告の読み取りをマーク」オプションを選択します。既読としてマーク

方法2：特定の日付より古い電子メールをVBAで読み取ったものとしてバッチマークする

  1. まず、「OutlookでVBAエディタを起動します。OutlookでVBAコードを実行する方法"
  2. 次に、次のコードをモジュールにコピーします。
Dim dDate As Date

Sub MarkEmailsOlderThanSpecificDateRead()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    dDate = InputBox("Enter the specific date:", , "2018/5/11")
 
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
 
           If objMail.SentOn <= dDate Then
              If objMail.UnRead = True Then
                 objMail.UnRead = False
                 objMail.Save
              End If
           End If
        End If
    Next
 
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

VBAコード-特定の日付より古い電子メールを既読としてバッチマーク

  1. その後、「F5」キーを押して、このマクロを今すぐ実行します。
  2. その後、小さなポップアップダイアログボックスで、特定の日付を入力し、「OK」をクリックします。特定の日付を入力してください
  3. 最終的に、特定の日付より古いすべての電子メールは既読としてマークされます。未読メールは既読に変更されます

侵害されたOutlookファイルを復元する

Outlookが予期せずクラッシュした後、OutlookPSTファイルが破損することがあります。 更新されたバックアップがある場合は、 Outlookを回復する バックアップ付きのデータ。 それ以外の場合は、次のような専門の専門家またはユーティリティを探す以外に選択肢はありません。 DataNumen Outlook Repair Outlookファイルを修復します。

著者紹介：

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

今すぐ共有：

コメントは締め切りました。