How to Auto Add Watermark to Confidential Emails before Sending Them in Outlook

Generally, most businesses demand their staff to add watermark to every outgoing confidential emails. Yet, it is a bit troublesome to add watermark to email because Outlook doesn’t provide such a direct feature. So, this article will show you a smart way to get it.

Like the confidential Word documents that commonly contain the “Confidential” watermark, multiple Outlook users are accustomed to adding such watermark to confidential emails as well. Nevertheless, they think that it is too troublesome to add watermark manually. Hence, they wish Outlook to auto add watermark to the outgoing confidential emails. So, the followings will introduce a method to realize it.

Auto Add Watermark to Confidential Emails before Sending Them

  1. For a start, in Outlook, press “Alt + F11” to trigger VBA editor.
  2. Then, in the “Microsoft Visual Basic for Applications” window, copy the VBA code below into the “ThisOutlookSession” project.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument as Object
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'If the email is confidential
       If objMail.Sensitivity = olConfidential Then
          Set objMailDocument = objMail.GetInspector.WordEditor
 
          'Add watermark
          'Change "Confidential" to your desired watermark
          objMailDocument.Shapes.AddTextEffect PowerPlusWaterMarkObject17486370, "Confidential", "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 If
End Sub

VBA Code - Auto Add Watermark to Confidential Emails before Sending Them

  1. After that, exit the VBA editor as usual.
  2. Eventually, you can have a try.
  • First off, create a new mail.
  • Then, turn to “Options” tab and hit the extension icon in the bottom right corner of “More Options” group.
  • In the popup window, select “Confidential” in “Sensitivity”.Set Sensitivity to Confidential
  • Later, compose this email at will.
  • Ultimately, click “Send” button,
  • After the mail is sent out, go to “Sent Items” to check it. You will see that it must contain watermark in body, as shown in the following figure.Auto Added Watermark in Set Sensitivity to Confidential Emails

Cope with Unknown Mails

It is commonplace to receive the emails that come from unknown senders. Most of them may be automatically treated as spam. However, some of them may safely land into your inbox. At this point, you have to watch out for them. Don’t trust in any of them causally in that they may come with viruses that can attack Outlook file with effortless ease. Once your Outlook data is infected, aside from killing the viruses, you’ll need to repair Outlook file. That demands you to employ a robust repair tool, like DataNumen Outlook Repair.

Author Introduction:

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

Comments are closed.