Outlookで返信していない重要な電子メールを自動強調表示する方法

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

重要な電子メールに返信することを忘れないように、返信していない重要な電子メールを特定のマニフェストの色で表示して強調表示することをお勧めします。さて、この記事はそれを取得する方法をあなたに教えます。

重要なメールを見逃して、時間内に返信しなかったことがありますか？このような問題が発生した場合は、Outlookが返信していない重要な電子メールを強調表示できることを期待するかもしれません。さて、以下では、VBAでそれを達成するためにあなたを案内します。 VBAに慣れていない場合は、以前の記事を参照してください–「OutlookでVBAコードを実行する方法」その間。

返信していない重要なメールを自動ハイライトします

最初に、Outlookの「Alt + F11」からVBAエディターにアクセスします。
次に、新しいウィンドウで、以下のコードを「ThisOutlookSession」プロジェクトにコピーします。

Private WithEvents objSentFolder As Outlook.Folder
Private WithEvents objSentMails As Outlook.Items
Private objInbox As Outlook.Folder

'On startup, auto update the replied status of the emails in Inbox
Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentMails = objSentFolder.Items
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Call UpdateRepliedStatus(objInbox)
End Sub

'After sending an email, auto update the replied status of the emails in Inbox
Private Sub objSentMails_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       Call UpdateRepliedStatus(objInbox)
    End If
End Sub

Private Sub UpdateRepliedStatus(ByVal objFolder As Outlook.Folder)
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objRepliedProperty As Outlook.UserProperty
    Dim strRepliedStatus As String
 
    'Write the replied status to a new user property of emails
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items(i).Class = olMail Then
           Set objMail = objFolder.Items(i)
 
           Set objRepliedProperty = objMail.UserProperties.Find("Replied", True)
           If objRepliedProperty Is Nothing Then
              Set objRepliedProperty = objMail.UserProperties.Add("Replied", olText, True)
           End If
 
           strRepliedStatus = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
           If (Not (strRepliedStatus = 102)) And (Not (strRepliedStatus = 103)) Then
              objRepliedProperty.Value = "No"
           Else
              objRepliedProperty.Value = "Yes"
           End If
 
           objMail.Save
        End If
    Next
End Sub

その後、カーソルを「Application_S」に移動しますtartup」マクロを押して「F5」を押します。
後で、このウィンドウを閉じます。
続いて、以下の手順に従って、受信トレイ内のアイテムの条件付き書式ルールを作成します。

まず、「受信トレイ」フォルダに切り替えます。
次に、「表示」タブに移動し、「表示設定」をクリックします。
新しいダイアログボックスで、「条件付き書式」ボタンをクリックします。
次の「条件付き書式」ダイアログボックスで、「追加」をクリックし、「返信されていない重要な電子メール」などの新しいルールの名前を入力します。
その後、「フォント…」ボタンをクリックし、ポップアップの「フォント」ダイアログボックスでフォントのスタイルと色を設定します。
フォントを指定したら、「条件付き書式」ダイアログボックスで「条件…」を押します。
続いて、「フィルター」画面の「詳細」タブで、XNUMXつのフィルターを追加します。

「重要」>「等しい」>「高い」
「返信済み」>「（正確に）」>「いいえ」

最終的に、一連の「OK」をクリックして、このフォーマット規則を保存します。

受信トレイに戻ると、返信していない重要なメールはすべて、特定のフォントと色で強調表示されています。

Outlookのデータ保護を怠らないでください

無数のユーザーは、データ破壊が決して起こらないという考えを今でも保持しています。実際には、そのような考えは完全に間違っていて危険です。 Most 時間の経過とともに、小さなミスがデータの損失につながる可能性があります。たとえば、不明な電子メールの悪意のあるリンクを誤ってクリックした場合、Outlookファイルはウイルスに感染し、さらには破損する可能性があります。したがって、定期的なPSTバックアップを維持したり、次のような強力な修正ツールを準備したりするなど、データ保護には常に注意を払う必要があります。 DataNumen Outlook Repair、そのことができます Outlookを修正する瞬間の問題。

著者紹介：

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