How to Batch Remove All Custom Stationery in Your Outlook

If you want to remove all custom stationery in your Outlook, you can use the means introduced in this article, which can let you accomplish it in bulk.

According to my previous article – “How to Create and Use Custom Stationery in Outlook“, you can create all kinds of custom stationery to your liking. If you have created a lot of custom stationery, but now they aren’t useful, then you will want to remove them. In the standard way, you ought to firstly go to the local folder where stationery files are actually stored and then delete all the files. If you feel that it is a bit tedious, you can read on to learn another method. It will guide you to get it simply by one click.

All Stationery Files

Batch Remove All Custom Stationery

  1. To begin with, run Outlook VBA editor with reference to the article – “How to Run VBA Code in Your Outlook“.
  2. Then, put the following code into an unused module.
Sub RemoveAllCustomStationery()
    Dim strEnviro As String
    Dim strFolderPath As String
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objSubfolder As Object
 
    'Get the local folder storing Stationery files
    strEnviro = CStr(Environ("USERPROFILE"))
    strFolder = strEnviro & "\AppData\Roaming\Microsoft\Stationery"
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolder)

    'Delete all files in the folder
    For Each objFile In objFolder.Files
        objFileSystem.DeleteFile (objFile.Path)
    Next
 
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           objFileSystem.DeleteFolder (objSubfolder)
       Next
    End If
 
    'Get a prompt
    MsgBox "All custom stationery is removed!", vbInformation + vbOKOnly, "Remove Stationery"
End Sub

VBA Code - Batch Remove All Custom Stationery

  1. After that, press “F5” key button to run this macro right now.
  2. Eventually, when macro finishes, you will receive the message – “All custom stationery is removed!”Message Prompting Success
  3. Now, all the custom stationery has been removed.All Custom Stationery Is Removed

Deal with Annoying PST Problems

As Outlook offers multiple excellent functions, it still can get corrupt due to many dangerous factors. Therefore, you have to make a lot of actions to block and cope with various PST issues. For instance, so as to avoid PST data loss, you need back up PST files on a regular basis. Plus, it is prudent to prepare an experienced and reliable PST fix tool, like DataNumen Outlook Repair. With it, you will be able to tackle PST issues in time.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql recovery and outlook repair software products. For more information visit www.datanumen.com

Comments are closed.