2 rychlé způsoby dávkového odstranění všech šablon uživatelů ve vašem Outlooku

Pokud jste ve svém Outlooku vytvořili mnoho uživatelských šablon a nyní je chcete hromadně odstranit, můžete si přečíst tento článek. Zde s vámi sdílíme 2 rychlé metody, jak toho dosáhnout.

Outlook umožňuje vytvářet různé uživatelské šablony, což může výrazně zlepšit vaši efektivitu. Možná jste si v Outlooku přizpůsobili a uložili více šablon. Nyní, pokud si myslíte, že už nejsou užitečné, můžete je odstranit. Dále vás naučíme 2 přístupy k jejich hromadnému mazání. Nyní si je přečtěte podrobně.

Metoda 1: Najít a ručně odstranit uživatelské šablony

1. Pro začátek spusťte Outlook.
2. Poté vytvořte novou poštu kliknutím na tlačítko „Nový e-mail“.
3. Dále v okně nové zprávy klikněte na „Soubor“ v pravém horním rohu.
4. V nabídce „Soubor“ klikněte na „Uložit jako“.
5. Následně v rozbalovacím dialogovém okně „Uložit jako“ vyberte ze seznamu pole „Uložit jako typ:“ „Šablona aplikace Outlook“.
6. Najednou se v aktuálním dialogovém okně otevře výchozí složka pro ukládání šablon.
7. Nyní zkopírujte cestu ke složce.
8. Poté spusťte Průzkumníka Windows, vložte cestu ke složce do adresního řádku a stiskněte „Enter“.
9. Nakonec v otevřené složce vyberte všechny šablony a stisknutím klávesy „Odstranit“ smažte všechny.

Metoda 2: Dávkové mazání uživatelských šablon pomocí VBA

1. Nejprve přejděte do editoru Outlook VBA pomocí „Alt + F11“.
2. V dalším okně zkopírujte následující kód VBA do modulu.

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. Nakonec spusťte toto makro stisknutím tlačítka „F5“.
4. Po dokončení makra se zobrazí výzva, jak je znázorněno na obrázku níže.
5. Nyní můžete zkontrolovat složku pro uživatelské šablony. Všechny šablony byly pryč.

Vyvarujte se nepříjemné ztráty dat z aplikace Outlook

Je známo, že Outlook je zranitelný. Jinými slovy, poškození Outlooku není neobvyklé. Abyste se vyhnuli poškození nebo ztrátě dat z Outlooku, měli byste proto podniknout několik opatření. Například byste měli pravidelně zálohovat soubor PST. Kromě toho, abyste zajistili okamžitou záchranu, měli byste mít robustní a osvědčený úložný systém. Oprava aplikace Outlook užitečnost užitečná, jako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com