Outlookでプライベートカレンダーアイテムを特定の色で自動表示する2つの方法

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

カレンダー上でプライベートな項目とそうでない項目をより簡単に区別するために、プライベートな項目を赤色などの特定の色で自動的に表示して強調表示したい場合があるでしょう。この記事では、それを実現する2つの方法をご紹介します。

多くのユーザーは、カレンダーアイテムをプライベートかどうかに基づいて分類することを好みます。カレンダーでは、プライベートアイテムにはデフォルトで視覚の明らかな違いがないため、プライベートアイテムをはるかに簡単に識別できるように、Outlookに特定の色で自動表示させることができます。ここでは、それを取得するための2つのアプローチを説明します。

方法1：「条件付き書式」を使用する

まず、Outlookを起動し、「カレンダー」ウィンドウにアクセスしてください。
次に、「表示」タブに移動し、表示を「カレンダー」に変更します。
次に、「表示設定」ボタンを押します。
ポップアップダイアログボックスで、「条件付き書式」をクリックします。
その後、次のダイアログで「追加」をクリックし、「プライベート」などの名前を入力します。
次に、インスタンスの「ダークレッド」などの特定の色を選択します。
その後、「状態」ボタンをクリックしてください。
次のダイアログボックスで、[詳細設定]タブに切り替えて、次のフィルタを追加します。

Sensitivity > equals > private

最後に、「リストに追加」といくつかの「OK」をクリックして、このフォーマットルールを保存します。
今後、すべてのプライベートカレンダーアイテムは「ダークレッド」で表示されます。

方法2：VBAで「自動色分類」を使用する

まず、特定の色で「プライベート」と呼ばれる新しい色のカテゴリを作成します。
次に、「次のようにOutlookVBAエディターを起動します。OutlookでVBAコードを実行する方法"
次に、次のコードを「ThisOutlookSession」プロジェクトに配置します。

Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub

最終的に、このマクロを有効にするにはOutlookを再起動してください。
今、あなたは試してみることができます。

デフォルトのカレンダーのアイテムを売り込みます。
次に、「プライベート」に変更します。
次のスクリーンショットに示すように、すぐに「プライベート」カラーカテゴリがこのアイテムに割り当てられます。

貴重なOutlookデータを救出する

Outlookは脆弱であるため、多くのユーザーがPSTの破損にさらされてきました。一般的に、それに遭遇したとき、あなたは最初に試すことができます受信トレイ修復ツールファイルを修正します。それでも、失敗した場合は、次のような、より強力で信頼性の高い外部ユーティリティを利用できます。 DataNumen Outlook Repair.

著者紹介：

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