How to Quickly Copy Watermark from One Email to Another in Your Outlook

At times, you may want to reuse the watermark of an email. In this situation, you’ll want to rapidly copy the watermark to a new email. This article will teach you how to realize it with a piece of VBA code.

Outlook doesn’t provide a direct feature to insert watermark to email. Thereby, in my previous article – “2 Steps to Add a Watermark to Outlook Email Messages“, I have introduced a workaround to realize it. But, it is too tedious. And sometimes, you receive or send an email with watermark. Later, you want to directly use its watermark to create a new email. In this case, you can just use the following way, which is far more convenient.Copy Watermark from One Email to Another in Your Outlook

Copy Watermark from One Email to Another

  1. At the very outset, launch your Outlook application.
  2. Then, in the Outlook window, tap on “Alt + F11” key buttons.
  3. After accessing the VBA editor, you can put the following VBA code into an unused module.
Sub CopyWatermark()
    Dim objSourceMail As Outlook.MailItem
    Dim objTempMail As Outlook.MailItem
    Dim objTempDocument As Word.Document
    Dim strStationeryFolder As String
    Dim strFilePath As String
    Dim objFileSystem As Scripting.FileSystemObject
    Dim objTextStream As Scripting.TextStream
    Dim strText As String
    Dim objNewMail As Outlook.MailItem
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
    End Select
  
    'Save the temp email as HTML file in stationery folder
    Set objTempMail = objSourceMail.ReplyAll
    With objTempMail
        .Subject = ""
        .To = ""
        .Display
    End With
    Set objTempDocument = objTempMail.GetInspector.WordEditor
    objTempDocument.Content.Delete
    strFilePath = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Stationery\" & "Temp" & Format(Now, "yyyymmddhhmmss") & ".htm"
    objTempMail.SaveAs strFilePath, olHTML
    objTempMail.Close olDiscard
 
    'Create a new email using the stationery with watermark
    Set objFileSystem = New Scripting.FileSystemObject
    Set objTextStream = objFileSystem.OpenTextFile(strFilePath)
    strText = objTextStream.ReadAll
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    objNewMail.HTMLBody = strText

    objTextStream.Close
    objFileSystem.DeleteFile strFilePath
End Sub

VBA Code - Copy Watermark from One Email to Another

  1. Subsequently, you can add this macro to Quick Access Toolbar with reference to the article – “How to Run VBA Code”.
  2. Finally, you can have a try.
  • First off, select or open the source email.
  • Then, click the macro in Quick Access Toolbar.Run Macro
  • When macro completes, a new email will display, which must contain the watermark of the source email.New Email Containing Original Watermark

Tackle Vexing Outlook Troubles Skillfully

Since Outlook is susceptible to various issues, you’re better off learning some tips to deal with them. For instance, restarting your Outlook in safe mode can make effects. If it fails too, you can try the inbuilt fix tool – Scanpst to fix the issues. Yet, it is unable to dispose of serious troubles, like damaged PST. Thus, you had better keep a preeminent and trustworthy external fix tool in vicinity, 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 corrupted mdf and outlook repair software products. For more information visit www.datanumen.com

Leave a Reply

Your email address will not be published. Required fields are marked *