返信時にメールの元の背景色を削除する2つの方法

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

背景色のあるメールに返信する際に、削除したい場合は、この記事で紹介した次の2つの方法を使用できます。

一部のユーザーは、メールで好みの背景色を使用することを好みます。したがって、カスタマイズされた背景色を含むそのような電子メールを受け取ったことがあると思われます。色が気に入らない場合は、メールに返信するときに削除する必要があります。通常どおり、色を削除するには、「ページの色」を「色なし」に手動で変更できます。しかし、面倒です。実際、次の2つのヒントを使用して、返信時に背景色を自動的に削除できます。

方法1：返信オプションを変更する

デフォルトでは、返信には元のメッセージテキストが自動的に含まれるように設定されています。この場合、元のメッセージの背景色も確実に含まれます。したがって、色を含めたくない場合は、返信オプションを変更できます。

まず、Outlookを起動します。
次に、「ファイル」メニューに移動します。
次に「オプション」を選択します。
続いて、ポップアップの[Outlookオプション]ダイアログボックスで[メール]タブに切り替えます。
その後、「返信と転送」セクションを見つけます。
後で、「メッセージに返信するとき」のドロップダウンリストから「元のメッセージを含めない」または「元のメッセージを添付する」を選択します。
最後に「OK」をクリックして変更を保存します。今、あなたは試してみることができます。

方法1の最大の欠点のXNUMXつは、返信のメッセージ本文に元の電子メールが含まれないことです。したがって、それが気に入らない場合は、次の手段を選択できます。

方法2：OutlookVBAを使用する

最初に、Outlookで「Alt + F11」を押します。
次に、VBAエディターウィンドウで、使用されていないモジュールを開きます。
次に、次のVBAコードをコピーして貼り付けます。

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

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

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Dim objReply As Outlook.MailItem
    Dim strReplyRecipient As String
    Dim objNewReply As Outlook.MailItem

    Set objReply = objMail.Reply
    strReplyRecipient = objMail.SenderEmailAddress
 
    Set objNewReply = Outlook.Application.CreateItem(olMailItem)
 
    With objNewReply
         .Recipients.Add (strReplyRecipient)
         .Recipients.ResolveAll
         .Subject = objReply.Subject
         .HTMLBody = objReply.HTMLBody
         .Display
    End With
 
    Cancel = True
End Sub

Private Sub objMail_ReplyAll(ByVal Forward As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objReplyRecipients As Outlook.Recipients
    Dim objrecipient As Outlook.recipient
    Dim objNewReplyAll As Outlook.MailItem

    Set objReplyAll = objMail.ReplyAll
    Set objReplyRecipients = objReplyAll.Recipients
 
    Set objNewReplyAll = Outlook.Application.CreateItem(olMailItem)
    
    For Each objrecipient In objReplyRecipients
        objNewReplyAll.Recipients.Add (objrecipient.Address)
    Next
 
    With objNewReplyAll
         .Recipients.ResolveAll
         .Subject = objReplyAll.Subject
         .HTMLBody = objReplyAll.HTMLBody
         .Display
    End With
 
    Cancel = True
End Sub

続いて、このコードに署名します。
後でOutlookマクロ設定を変更して、署名付きマクロを許可します。
次に、Outlookを再起動して新しいVBAプロジェクトを有効にしてください。
最終的には、試してみることができます。

メールを選択し、リボンの[返信]または[全員に返信]ボタンをクリックします。
新しい返信メッセージが表示され、元の背景色が削除されたことがわかります。

迷惑なPSTトラブルに対処する

通常のOutlookユーザーは、一般的なエラー、ウイルス、破損したOutlook PSTファイルなど。このような問題に直面した場合、最初に受信トレイ修復ツールを使用してそれを解決することができます。問題が解決しない場合は、次のようなより堅牢なツールを試すことができます DataNumen Outlook Repair.

著者紹介：

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