電子メールのカテゴリをOutlookのすべての返信と転送に自動適用する方法

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

電子メールに返信または転送するときは、同じカテゴリを適用することをお勧めします。この記事では、VBAコードでこれを実現する方法を説明します。

元の電子メールの同じ色のカテゴリをすべての返信と転送に割り当てることに慣れている場合は、Outlookにこれを自動的に実行させてみませんか？ Outlookはそのような直接的な機能を提供していませんが、VBAコードを使用してそれを取得できます。以下では、詳細な手順とコードを公開します。

電子メールのカテゴリをすべての返信と転送に自動適用する

最初に、Outlookアプリケーションを起動します。
次に、「Alt + F11」キーを押して、OutlookVBAエディターを実行します。
次に、次のVBAコードを「ThisOutlookSession」プロジェクトにコピーします。

Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem
Private strCategories As String

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
       strCategories = objMail.Categories
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
       strCategories = objMail.Categories
    End If
End Sub

Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    Call CopyCategories(Forward)
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call CopyCategories(Response)
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call CopyCategories(Response)
End Sub

Private Sub CopyCategories(ByVal objNewMail As Object)
    objNewMail.Categories = strCategories
End Sub

その後、Outlookを再起動してこのプロジェクトを有効にしてください。
それ以降は、以下の手順でお試しいただけます。

まず、メールを選択して「転送」ボタンを押します。
次に、転送メールが表示されます。このメールで、[オプション]タブに移動し、[その他のオプション]グループの右下隅にある拡張機能アイコンを押すことができます。
次に、ポップアップの[プロパティ]ダイアログボックスで、このメールに元のメールと同じ色のカテゴリが割り当てられていることがわかります。

破損したOutlookファイルを修正する

Outlookは脆弱であるという事実を考えると、Outlookのデータ損失を回避するために多くのアクションを実行する必要があります。たとえば、定期的なデータバックアップを作成する必要があります。さらに、埋め込まれたリンクや添付ファイルを含む不明な電子メールに注意する必要があります。大事なことを言い忘れましたが、あなたは次のようなチップトップの外部修正ツールを手に入れる必要があります DataNumen Outlook Repair。それはあなたがから最大のデータを取得するのを助けることができます破損したOutlook ファイルにソフトウェアを指定する必要があります。

著者紹介：

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