2 Quick Ways to Batch Delete All User Templates in Your Outlook

If you have created a lot of user templates in your Outlook and now want to batch delete them, you can refer to this article. Here we will share 2 rapid methods with you to achieve it.

Outlook allows you to create various user templates, which can greatly improve your efficiency. Perhaps you have customized and stored multiple templates in your Outlook. Now, if you think that they aren’t useful any more, you may want to delete them. Thereinafter, we will teach you 2 approaches to delete them in bulk. Now read on to get them in detail.

Method 1: Find & Manually Delete User Templates

1. For a start, launch Outlook.
2. Then, create a new mail by clicking “New E-mail” button.
3. Next, in the new message window, click “File” in the right upper corner.
4. In the “File” menu, click “Save As”.
5. Subsequently, in the popup dialog box of “Save As”, select “Outlook Template” from the list of “Save as type:” field.
6. At once, the default folder for saving templates will be opened in the current dialog box.
7. Now, copy the folder path.
8. After that, open Windows Explorer and paste the folder path in the address bar and press “Enter”.
9. Finally, in the opened folder, select all the templates and press “Delete” key to delete all.

Method 2: Batch Delete User Templates with VBA

1. To begin with, go to Outlook VBA editor via “Alt + F11”.
2. In the next window, copy the following VBA code into a module.

Sub DeleteAllUserTemplates()
    Dim strEnviro As String
    Dim strTemplateFolder As String
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strFileExtension As String
 
    'Get the local folder storing Stationery files
    strEnviro = CStr(Environ("USERPROFILE"))
    strTemplateFolder = strEnviro & "\Documents\UserTemplates"
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strTemplateFolder)

    'Delete all oft files in the folder
    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If strFileExtension = "oft" Then
           objFileSystem.DeleteFile (objFile.Path)
        End If
    Next
 
    'Get a prompt
    MsgBox "All user templates have been deleted!", vbInformation + vbOKOnly
End Sub

3. Finally, press “F5” key button to run this macro.
4. When macro completes, a prompt will display, as shown in the figure below.
5. Now, you can check the folder for user templates. All the templates have been gone.

Shun Unpleasant Outlook Data Loss

It is known that Outlook is vulnerable. In other words, Outlook getting corrupt is not rare. Therefore, so as to evade Outlook data corruption or loss, you ought to take multiple precautions. For instance, you have to stick to back up PST file on a regular basis. Besides, in order to provide immediate rescue, you had better keep a robust and well-proven Outlook repair utility handy, 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 Server and outlook repair software products. For more information visit www.datanumen.com