異なる色のカテゴリの電子メールをOutlookの異なるフォルダに自動移動する方法

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

Outlookで、メールに異なる色のカテゴリを割り当てた際に、メールを自動的に別のフォルダに移動させたい場合は、この記事で紹介する方法を使用できます。

多くのユーザーは、特定の色のカテゴリが割り当てられているときに、電子メールを特定のフォルダに自動移動する方法を望んでいます。間違いなく、Outlookはそれを実現するためのそのような直接的な機能を提供していません。したがって、以下では、それを取得する方法を説明します。さて、詳細な手順を取得するために読んでください。

異なる色のカテゴリの電子メールを異なるフォルダに自動移動する

まず、Outlookプログラムを起動してください。
次に、Outlookで、「Alt + F11」キーボタンを押してVBAエディターにアクセスします。
続いて、次のVBAコードを「ThisOutlookSession」プロジェクトに配置します。

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

注意：

他のフォルダー内のアイテムを処理するには、「送信済みアイテム」フォルダーの「Application.Session.GetDefaultFolder（olFolderSentMail）」などの「objInboxFolder」オブジェクトを変更します。
また、上記のコードで事前に定義されている色のカテゴリと対象フォルダを、実際の状況に合わせて変更してください。
さらに、「ElseIf」を使用して、他のオプションのカラーカテゴリを追加できます。

その後、「Application_Startup」サブルーチンにカーソルを移動し、「F5」キーを押すと、このマクロが起動します。
最後に、あなたはショットを撮ることができます。これが私の例です。

受信トレイフォルダでメールを選択します。
次に、「プライベート」カラーカテゴリを割り当てます。
すぐに、このメールは「受信トレイ」の下の「プライベート」フォルダに移動されます。

Outlookの取り扱いには注意してください

Outlookでいくつかの問題が発生した可能性があります。多くの場合、それらは実際には不適切な取り扱いから発生します。たとえば、突然の電源切断など、常にOutlookを誤って閉じます。または、Outlookデータを定期的にバックアップしていません。同様のアクションはすべて、Outlookをはるかに脆弱にする可能性があります。ご存知のように、PSTファイルが破損すると、それを修復することは非常に困難です。一般的に、受信トレイ修復ツール効果はありません。次のような外部のチップトップユーティリティを利用する以外に選択肢はありません。 DataNumen Outlook Repair.

著者紹介：

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