2 Easy Methods to Auto Apply Watermark to New Outlook Emails

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

  1. 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“.Add Watermark to a New Email
  2. Then, in the message, go to “File” menu and click “Save As” button.
  3. In the popup “Save As” dialog box, copy “%appdata%\microsoft\stationery” into the top address bar and press “Enter”.Navigate to Stationery Folder
  4. Next, input a name in “File name” field and choose “HTML” in “Save as type”.Save Email as HTML File
  5. After that, click “Save” button.
  6. Later, in Outlook, go to “File” > “Options”.
  7. In the “Outlook Options” window, shift to “Mail” tab.
  8. Subsequently, locate and click on “Stationery and Fonts…” button.
  9. In the new dialog box, click “Theme” button.Set Theme to New Mail
  10. Then, in “Theme or Stationery” dialog box, find and select the stationery with watermark you created just now.Select Stationery
  11. Finally, click a series of “OK” to apply the settings.
  12. Now, create a new email, which will be surely displayed with watermark.New Email with Watermark

Method 2: Auto Apply Watermark to New Emails with VBA

  1. At the beginning, run VBA editor in Outlook according to “How to Run VBA Code in Your Outlook“.
  2. Then, enable “Microsoft Word Object Library” by referring to “How to Add an Object Library Reference in VBA“.
  3. 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

VBA Code - Auto Apply Watermark to New Outlook Emails

  1. Afterwards, restart Outlook to activate this macro.
  2. Eventually, create a new mail, which will show up with watermark in body, as shown in the following figure.Watermark Is Applied to All New Emails

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.

Author Introduction:

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

Comments are closed.