2 raske måter å batchslette alle brukermaler i Outlook

Hvis du har laget mange brukermaler i Outlook og nå ønsker å batchslette dem, kan du referere til denne artikkelen. Her vil vi dele 2 raske metoder med deg for å oppnå det.

Outlook lar deg lage ulike brukermaler, som kan forbedre effektiviteten din betraktelig. Kanskje du har tilpasset og lagret flere maler i Outlook. Nå, hvis du tror at de ikke er nyttige lenger, kan det være lurt å slette dem. Deretter vil vi lære deg 2 metoder for å slette dem i bulk. Les nå videre for å få dem i detalj.

Metode 1: Finn og slett brukermaler manuelt

1. For somtart, start Outlook.
2. Deretter oppretter du en ny e-post ved å klikke på "Ny e-post"-knappen.
3. Deretter, i det nye meldingsvinduet, klikker du på "Fil" i øvre høyre hjørne.
4. I "Fil"-menyen klikker du på "Lagre som".
5. Deretter, i popup-dialogboksen til "Lagre som", velg "Outlook-mal" fra listen over "Lagre som type:"-feltet.
6. Med en gang vil standardmappen for lagring av maler åpnes i den gjeldende dialogboksen.
7. Kopier nå mappebanen.
8. Deretter åpner du Windows Utforsker og limer inn mappebanen i adressefeltet og trykker "Enter".
9. Til slutt, i den åpnede mappen, velg alle malene og trykk "Slett"-tasten for å slette alle.

Metode 2: Batch-slett brukermaler med VBA

1. Til å begynne med, gå til Outlook VBA editor via "Alt + F11".
2. I neste vindu kopierer du følgende VBA-kode til en 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 slutt trykker du på "F5"-tasten for å kjøre denne makroen.
4. Når makroen er fullført, vises en melding, som vist i figuren nedenfor.
5. Nå kan du sjekke mappen for brukermaler. Alle malene er borte.

Unngå ubehagelige Outlook-datatap

Det er kjent at Outlook er sårbart. Med andre ord, Outlook blir korrupt er det ikke rare. Derfor, for å unngå korrupsjon eller tap av Outlook-data, bør du ta flere forholdsregler. For eksempel må du holde deg til å sikkerhetskopiere PST-filen med jevne mellomrom. Dessuten, for å gi umiddelbar redning, må du holde en robust og velprøvd Outlook reparasjon verktøy hendig, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparasjon SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med