批量刪除 Outlook 中所有用戶模板的 2 種快速方法

如果您在Outlook中創建了很多用戶模板，現在想要批量刪除它們，可以參考這篇文章。 這裡我們將與您分享2種快速實現方法。

Outlook允許您創建各種用戶模板，這可以大大提高您的效率。 也許您在 Outlook 中自定義並存儲了多個模板。 現在，如果您認為它們不再有用，您可能想要刪除它們。 下面我們就教大家兩種批量刪除的方法。 現在請繼續閱讀以了解它們的詳細信息。

方法一：查找並手動刪除用戶模板

1. 對於作為tart，啟動Outlook。
2. 然後，通過單擊“新電子郵件”按鈕創建新郵件。
3. 接下來，在新消息窗口中，單擊右上角的“文件”。
4. 在“文件”菜單中，單擊“另存為”。
5. 隨後，在彈出的“另存為”對話框中，從“保存類型：”字段列表中選擇“Outlook 模板”。
6. 立即，將在當前對話框中打開保存模板的默認文件夾。
7. 現在，複製文件夾路徑。
8. 之後，打開Windows資源管理器並將文件夾路徑粘貼到地址欄中，然後按“Enter”。
9. 最後，在打開的文件夾中，選擇所有模板，然後按“Delete”鍵將其全部刪除。

方法二：使用VBA批量刪除用戶模板

1. 首先，通過“ Alt + F11”轉到Outlook VBA編輯器。
2. 在下一個窗口中，將以下 VBA 代碼複製到模塊中。

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. 最後，按“F5”鍵運行該宏。
4. 宏完成後，會出現提示，如下圖所示。
5. 現在，您可以檢查用戶模板的文件夾。 所有的模板都消失了。

避免令人不快的 Outlook 數據丟失

眾所周知，Outlook 存在漏洞。 換句話說，Outlook 損壞並不是 rare. 因此，為了避免 Outlook 數據損壞或丟失，您應該採取多種預防措施。 例如，您必須堅持定期備份 PST 文件。 此外，為了提供即時救援，您最好保留一個堅固且經過充分驗證的 Outlook修復 實用方便，比如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復 SQL Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM