If you want to auto apply specific watermark to new emails in Outlook, you can use either of the 2 methods introduced in this article.
By default, Outlook doesn’t provide a direct feature for users to add watermark to emails, not to mention automatically applying watermark to all new emails. Yet, a lot of users have such a requirement. Therefore, here we’ll share 2 handy means to realize it.
Method 1: Create & Apply Custom Stationery with Watermark to New Mails
- First of all, create a new email and add watermark to it with reference to the article – “2 Steps to Add a Watermark to Outlook Email Messages“.
- Then, in the message, go to “File” menu and click “Save As” button.
- In the popup “Save As” dialog box, copy “%appdata%\microsoft\stationery” into the top address bar and press “Enter”.
- Next, input a name in “File name” field and choose “HTML” in “Save as type”.
- After that, click “Save” button.
- Later, in Outlook, go to “File” > “Options”.
- In the “Outlook Options” window, shift to “Mail” tab.
- Subsequently, locate and click on “Stationery and Fonts…” button.
- In the new dialog box, click “Theme” button.
- Then, in “Theme or Stationery” dialog box, find and select the stationery with watermark you created just now.
- Finally, click a series of “OK” to apply the settings.
- Now, create a new email, which will be surely displayed with watermark.
Method 2: Auto Apply Watermark to New Emails with VBA
- At the beginning, run VBA editor in Outlook according to “How to Run VBA Code in Your Outlook“.
- Then, enable “Microsoft Word Object Library” by referring to “How to Add an Object Library Reference in VBA“.
- Next, put the following code into “ThisOutlookSession” project.
Public WithEvents objInspectors As Outlook.Inspectors Public WithEvents objMailInspector As Outlook.Inspector Private Sub Application_Startup() Set objInspectors = Outlook.Application.Inspectors End Sub Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector) If TypeOf Inspector.CurrentItem Is MailItem Then Set objMailInspector = Inspector End If End Sub Private Sub objMailInspector_Activate() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Set objMail = objMailInspector.CurrentItem If objMail.Subject = "" And objMail.Recipients.Count = 0 Then Set objMailDocument = objMailInspector.WordEditor 'Add watermark objMailDocument.Shapes.AddTextEffect PowerPlusWaterMarkObject17486370, "DataNumen", "Calibri", 1, False, False, 0, 0 With objMailDocument.Shapes(1) .Name = "PowerPlusWaterMarkObject1" .TextEffect.NormalizedHeight = False .Line.Visible = False .Fill.Visible = True .Fill.Solid .Fill.ForeColor.RGB = RGB(192, 192, 192) .Fill.Transparency = 0.7 .Rotation = 315 .LockAspectRatio = True .Height = 80 .Width = 520 .WrapFormat.AllowOverlap = True .WrapFormat.Side = wdWrapNone .WrapFormat.Type = 3 .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin .RelativeVerticalPosition = wdRelativeVerticalPositionMargin .Left = wdShapeCenter .Top = wdShapeCenter End With End If End Sub
- Afterwards, restart Outlook to activate this macro.
- Eventually, create a new mail, which will show up with watermark in body, as shown in the following figure.
Repair Damaged Outlook Files
To be honest, it is not rare for users to suffer Outlook crash. The same holds true for PST file corruption. Therefore, so as to prevent PST data loss, you had better prepare a powerful and well-proven PST repair tool, such as DataNumen Outlook Repair. With it, you can fix PST issues effortlessly.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover sql and outlook repair software products. For more information visit www.datanumen.com