If you’re unwilling to see the incoming emails displaying in customized stationery or theme, you can refer to this article. Here we will introduce 2 approaches. You can choose either to your liking.
Outlook permits users to apply stationery and theme to emails. In this case, users may receive multiple emails shown in various stationeries. You may think that it is too dazzling and are reluctant to viewing emails in diverse themes. Therefore, you may want to remove the stationery of incoming emails. Now, thereinafter, we will teach you 2 means.
Method 1: Read Mail in Plain Text
- First off, launch Outlook.
- Then, click “File” in the upper left corner.
- In “File” menu, select “Options”.
- Next, in the new window, shift to “Trust Center” tab.
- Subsequently, in the right pane, hit the “Trust Center Settings” button.
- Later, a new window will display, in which you have to go to “E-mail Security” tab.
- Afterwards, activate the two options under “Read as Plain Text” label, namely “Read all standard mail in Plain Text” as well as “Read all digitally signed mail in Plain Text”.
- Finally, click serval “OK” button to save the changes.
- Since then, Outlook will automatically change every incoming email to Plain Text format. Plain Text format doesn’t support stationery or theme.
Note:
Though this means is easy, it has a flaw – it’ll remove the images embedded in this email as well. In this case, if the incoming email contains pictures, you will lose them by this means. Therefore, in the followings, we’ll share another way.
Method 2: Auto Remove the Stationery & Theme of Incoming Emails by VBA
- At the very outset, access Outlook VBA editor according to the article – “How to Run VBA Code in Your Outlook”.
- Next, copy and paste the following VBA code into an unused module.
Sub RemoveStationery(objMail As Outlook.MailItem)
Dim nTagStart As Integer
Dim nTagEnd As Integer
Dim strFoundInfo As String
'Remove contents within <BODY> tag
nTagStart = InStr(1, objMail.HTMLBody, "<BODY", vbTextCompare)
If nTagStart > 0 Then
nTagEnd = InStr(nTagStart, objMail.HTMLBody, ">", vbTextCompare)
strFoundInfo = Mid(objMail.HTMLBody, nTagStart, nTagEnd - nTagStart + 1)
End If
If strFoundInfo <> "" Then
objMail.HTMLBody = Replace(objMail.HTMLBody, strFoundInfo, "<BODY>")
strFoundInfo = ""
End If
'Find & replace <STYLE> tag
nTagStart = InStr(1, objMail.HTMLBody, "<STYLE>", vbTextCompare)
If nTagStart > 0 Then
nTagEnd = InStr(8, objMail.HTMLBody, "</STYLE>", vbTextCompare)
strFoundInfo = Mid(objMail.HTMLBody, nTagStart, ((nTagEnd + 8) - nTagStart))
End If
If strFoundInfo <> "" Then
objMail.HTMLBody = Replace(objMail.HTMLBody, strFoundInfo, "")
End If
objMail.Save
End Sub
- After that, close the current window.
- Later, create a new Outlook rule to run this script on all incoming emails.
- First off, head to “File” menu.
- Then, click “Manage Rules & Alerts” button.
- In the new dialog box, click on “New Rule” button.
- Later, in the new screen, select “Apply rule on messages I receive” and hit “Next”.
- Then, in the “Select condition(s)” screen, choose the rule condition as per your needs and then click “Next”.
- Subsequently, in “Select action(s)” screen, select “Run a script” action.
- Next, choose the previously added “RemoveStationery” script.
- Later, click “OK” and “Next”.
- Finally, follow onscreen wizards to complete rule setup.
- From now on, every time when a new incoming email arrives in your mailbox, Outlook will auto remove its stationery and theme.
Shield Your Outlook Data Effectively
Many users have complained a lot about Outlook frequent crash in that they are always afraid of that their Outlook data would get damaged during crash. Hence, it is prudent for regular users to get hold of a tip-top Outlook recovery tool, such as DataNumen Outlook Repair. It’ll come to your rescue in time as soon as you’re faced with serious Outlook damage.
Author Introduction:
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair mdf and outlook repair software products. For more information visit www.datanumen.com
Explained well with visual data. Thanks for sharing the post. I am a newbie in this field and try to gain more and more information.