2 greiti būdai, kaip grupiniu būdu ištrinti visus vartotojo šablonus programoje „Outlook“.

Jei savo „Outlook“ sukūrėte daug naudotojų šablonų ir dabar norite juos grupiniu būdu ištrinti, galite peržiūrėti šį straipsnį. Čia mes pasidalinsime su jumis 2 greitais būdais, kaip tai pasiekti.

„Outlook“ leidžia kurti įvairius vartotojo šablonus, kurie gali labai pagerinti jūsų efektyvumą. Galbūt savo „Outlook“ tinkinote ir išsaugojote kelis šablonus. Dabar, jei manote, kad jie nebenaudingi, galbūt norėsite juos ištrinti. Vėliau išmokysime 2 būdus, kaip juos masiškai ištrinti. Dabar skaitykite toliau, kad sužinotumėte juos išsamiau.

1 būdas: raskite ir rankiniu būdu ištrinkite naudotojo šablonus

1. Dėl astart, paleiskite „Outlook“.
2. Tada sukurkite naują laišką spustelėdami mygtuką „Naujas el. paštas“.
3. Tada naujame pranešimo lange dešiniajame viršutiniame kampe spustelėkite „Failas“.
4. Meniu „Failas“ spustelėkite „Išsaugoti kaip“.
5. Tada iššokančiajame dialogo lange „Išsaugoti kaip“ iš lauko „Išsaugoti kaip tipas:“ sąrašo pasirinkite „Outlook šablonas“.
6. Iš karto dabartiniame dialogo lange bus atidarytas numatytasis šablonų išsaugojimo aplankas.
7. Dabar nukopijuokite aplanko kelią.
8. Po to atidarykite „Windows Explorer“ ir įklijuokite aplanko kelią į adreso juostą ir paspauskite „Enter“.
9. Galiausiai atidarytame aplanke pasirinkite visus šablonus ir paspauskite mygtuką „Ištrinti“, kad ištrintumėte visus.

2 būdas: ištrinkite vartotojo šablonus su VBA

1. Norėdami pradėti, eikite į „Outlook VBA“ redaktorių naudodami „Alt + F11“.
2. Kitame lange nukopijuokite šį VBA kodą į 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. Galiausiai paspauskite „F5“ klavišą, kad paleistumėte šią makrokomandą.
4. Kai makrokomanda bus baigta, bus rodomas raginimas, kaip parodyta paveikslėlyje žemiau.
5. Dabar galite patikrinti, ar aplanke nėra vartotojo šablonų. Dingo visi šablonai.

Venkite nemalonaus Outlook duomenų praradimo

Yra žinoma, kad „Outlook“ yra pažeidžiama. Kitaip tariant, „Outlook“ nėra sugadinta rare. Todėl, norėdami išvengti „Outlook“ duomenų sugadinimo ar praradimo, turėtumėte imtis kelių atsargumo priemonių. Pavyzdžiui, turite reguliariai kurti atsarginę PST failo kopiją. Be to, norint nedelsiant išgelbėti, turėtumėte turėti tvirtą ir gerai patikrintą „Outlook“ taisymas naudingumas patogus, patinka DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com