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
- At the very outset, launch your Outlook application.
- Then, in the Outlook window, tap on “Alt + F11” key buttons.
- 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
- Subsequently, you can add this macro to Quick Access Toolbar with reference to the article – “How to Run VBA Code”.
- Finally, you can have a try.
- First off, select or open the source email.
- Then, click the macro in Quick Access Toolbar.
- When macro completes, a new email will display, which must contain the watermark of the source email.
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.
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