When replying an email, usually, the original email content will be included in the reply. So as to distinguish the reply contents and original contents, you may want to change the color of the original mail text. This post will expose a means to let Outlook auto get it.
Generally, when you reply an email, the original mail contents will be auto kept in reply. Then, you may feel it a bit hard to differentiate the reply contents and the original contents. To solve this problem, one of the best ways is to show the reply and the original contents in different font colors. Now, in the followings, we will share you an approach to let Outlook auto modify the color of original email text.
Auto Change the Color of Original Email Text When Replying an Email
- For a start, launch Outlook program.
- Then, press “Alt + F11” to trigger Outlook VBA editor.
- Next, in the new window, follow the steps in “How to Add an Object Library Reference in VBA” to enable the reference to “MS Word Object Library”.
- Subsequently, put the VBA code below into “ThisOutlookSession” project.
Public WithEvents objInspectors As Outlook.Inspectors Public WithEvents objExplorer As Outlook.Explorer Public WithEvents objMail As Outlook.MailItem Private Sub Application_Startup() Set objInspectors = Outlook.Application.Inspectors Set objExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub objExplorer_SelectionChange() On Error Resume Next If TypeOf objExplorer.Selection.Item(1) Is MailItem Then Set objMail = objExplorer.Selection.Item(1) End If End Sub Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector) If TypeOf Inspector.CurrentItem Is MailItem Then Set objMail = Inspector.CurrentItem End If End Sub Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean) Dim objReply As Outlook.MailItem Cancel = True Set objReply = objMail.Reply objReply.Display Call ChangeOriginalCotentFontColor(objReply) End Sub Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean) Dim objReplyAll As Outlook.MailItem Cancel = True Set objReplyAll = objMail.ReplyAll objReplyAll.Display Call ChangeOriginalCotentFontColor(objReplyAll) End Sub Private Sub ChangeOriginalCotentFontColor(ByVal objRespond As Outlook.MailItem) Dim objRespondDoc As Word.Document Dim objDocSelection As Word.Selection Set objRespondDoc = objRespond.GetInspector.WordEditor Set objDocSelection = objRespondDoc.Application.Selection objDocSelection.WholeStory objDocSelection.Font.ColorIndex = wdDarkBlue objRespondDoc.Range(0, 0).Select Set objDocSelection = objRespondDoc.Application.Selection objDocSelection.Font.ColorIndex = wdBlack End Sub
- After that, click into “Application_Startup” subroutine and press “F5” key.
- Finally, take the following steps to try this macro.
- Firstly, select or open an email.
- Then, click on “Reply” or “Reply All” button.
- At once, the reply mail will be displayed. In it, the original message text is shown in dark blue, as shown in the screenshot below.
Prevent Losing Your Outlook Data
Outlook file is prone to errors and corruption. Therefore, if you are a regular user of Outlook, you have to take some precautions, including backing up Outlook files periodically, mastering the skills of inbox repair tool as well as getting hold of an experienced external repair utility, such as DataNumen Outlook Repair. With all of these, you can evade permanent Outlook data loss with ease.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair sql and outlook repair software products. For more information visit www.datanumen.com