すべてのOutlookアイテムのすべての色のカテゴリをバッチでクリアする方法

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

用途によっては、Outlookで色分けを最初から使い始めたい場合があります。そのため、Outlookのすべてのアイテムの色分けをすべてクリアしたいと考えるでしょう。この記事では、それを効率的に行う方法をご紹介します。

たとえば、カラーカテゴリを再構築するには、Outlookの既存のカラーカテゴリをすべて削除します。ただし、削除した後も、これらのカテゴリがOutlookアイテムに添付されている場合があります。唯一の変更点は、カテゴリが元の色を失い、白で表示されることです。このような状況では、すべてのアイテムのすべてのカラーカテゴリをクリアすることをお勧めします。

XNUMXつのフォルダ内のすべてのアイテムに対してこれを行うには、「Ctrl + A」を押してすべてのアイテムを選択し、右クリックしてコンテキストメニューから「分類」と「すべてのカテゴリをクリア」を選択します。ただし、このように、すべてのフォルダをXNUMXつずつ処理する必要があります。面倒すぎる。したがって、以下では、はるかに便利な方法を説明します。

すべてのOutlookアイテムのすべての色のカテゴリをバッチでクリア

まず、Outlookアプリケーションを起動してください。
次に、「Alt + F11」キーのショートカットを押して、VBAエディターをトリガーします。
表示されている新しいウィンドウで、次のVBAコードをコピーして空のモジュールまたはプロジェクトに貼り付けます。

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

その後、カーソルを最初のサブルーチンに置き、「F5」キーボタンを押してマクロをトリガーします。
「完了」プロンプトが表示されたら、すべてのOutlookアイテムからすべてのカラーカテゴリがクリアされていることを意味します。
現在、Outlookの電子メール、予定、タスク、連絡先、またはメモに関係なく、それらすべてにカラーカテゴリを絶対に割り当ててはなりません。

深刻なOutlookの問題を解決する

Outlookには、組み込みの修復ツールであるScanpst.exeがプリインストールされていることをご存知かもしれません。これまでに試したことはありますか？正直なところ、OutlookのPSTファイルに関連する小さな問題に対処するのに十分強力です。ただし、問題がひどいなど、かなり深刻な場合破損したOutlook ファイルの場合、内部ユーティリティは効果を発揮しません。この状況では、次のような先端の外部ツールに頼る必要があります。 DataNumen Outlook Repair、PSTの回復率が高いため、ライバルを引き継いでいます。

著者紹介：

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