2 hurtige måder at batch-slette alle brugerskabeloner i din Outlook

Hvis du har oprettet mange brugerskabeloner i din Outlook og nu vil batch-slette dem, kan du henvise til denne artikel. Her deler vi 2 hurtige metoder med dig for at opnå det.

Outlook giver dig mulighed for at oprette forskellige brugerskabeloner, som i høj grad kan forbedre din effektivitet. Måske har du tilpasset og gemt flere skabeloner i din Outlook. Nu, hvis du tror, ​​at de ikke er nyttige mere, kan du slette dem. Herefter lærer vi dig to tilgange til at slette dem samlet. Læs videre for at få dem i detaljer.

Metode 1: Find og slet manuelt brugerskabeloner

1. Til at starte med, start Outlook.
2. Opret derefter en ny mail ved at klikke på knappen "Ny e-mail".
3. Klik derefter på "File" i det øverste højre hjørne i det nye meddelelsesvindue.
4. Klik på "Gem som" i menuen "Filer".
5. Derefter skal du i pop op-dialogboksen under "Gem som" vælge "Outlook-skabelon" fra listen over "Gem som type:".
6. Straks åbnes standardmappen til lagring af skabeloner i den aktuelle dialogboks.
7. Kopier nu mappestien.
8. Derefter skal du åbne Windows Stifinder og indsætte mappestien i adresselinjen og trykke på "Enter".
9. Endelig skal du i den åbnede mappe vælge alle skabeloner og trykke på “Slet” -tasten for at slette alle.

Metode 2: Batch Slet brugerskabeloner med VBA

1. Til at begynde med skal du gå til Outlook VBA-editor via “Alt + F11”.
2. I det næste vindue skal du kopiere følgende VBA-kode til et modul.

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. Til sidst skal du trykke på “F5” -tasten for at køre denne makro.
4. Når makroen er færdig, vises en meddelelse som vist i nedenstående figur.
5. Nu kan du kontrollere mappen for brugerskabeloner. Alle skabeloner er væk.

Undgå ubehageligt datatab i Outlook

Det er kendt, at Outlook er sårbart. Med andre ord er det ikke sjældent, at Outlook bliver beskadiget. Derfor bør du tage flere forholdsregler for at undgå beskadigelse eller tab af Outlook-data. For eksempel skal du regelmæssigt sikkerhedskopiere PST-filer. Derudover bør du, for at kunne tilbyde øjeblikkelig redning, have en robust og velafprøvet database. Outlook reparation værktøj praktisk, ligesom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com