Kaip paketais išsaugoti kelis juodraščius el. laiškus kaip „Outlook“ šablonus

Galbūt sukūrėte kelis el. laiškų juodraščius ir tikitės juos panaudoti dar kartą daug kartų. Jei taip, kodėl neišsaugojus jų paketais kaip „Outlook“ šablonus? Šis straipsnis išmokys tai padaryti vienu kartu naudojant VBA.

Pagal numatytuosius nustatymus „Outlook“ leidžia vartotojams vienu metu išsaugoti tik vieną el. laišką kaip šabloną. Kitaip tariant, negalite masiškai išsaugoti kelių juodraščių el. laiškų kaip šablonų. Kaip matote, pasirinkę daugiau nei vieną laišką ir eidami į „Failas“ > „Išsaugoti kaip“, sąraše „Išsaugoti kaip tipas“ nerasite „Outlook šablono“ formato, galimas tik „Tik tekstas“. Tačiau mes jums pristatysime, kaip tai realizuoti masiškai.

Išsaugokite kelis juodraščius el. laiškus kaip „Outlook“ šablonus

1. Pačioje pradžioje suaktyvinkite Outlook VBA redaktorių.
2. Naujame lange „Microsoft Visual Basic for Applications“ nukopijuokite ir įklijuokite toliau pateiktą VBA kodą.

Sub SaveMultipleDraftsAsTemplates()
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim strTemplateFolder As String
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
 
    'Get all selected mails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Get the default folder for saving Outlook Templates
       strTemplateFolder = CStr(Environ("USERPROFILE")) & "\Documents\UserTemplates\"
 
       'Save each mail as template
       For i = objSelection.Count To 1 Step -1
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Subject <> "" Then
 
                 'Remove unsupported characters
                 strSubject = objMail.Subject
                 strSubject = Replace(strSubject, "/", " ")
                 strSubject = Replace(strSubject, "\", " ")
                 strSubject = Replace(strSubject, ":", "")
                 strSubject = Replace(strSubject, "?", " ")
                 strSubject = Replace(strSubject, Chr(34), " ")
 
                 objMail.SaveAs strTemplateFolder & strSubject & ".oft", olTemplate
              Else
                 objMail.SaveAs strTemplateFolder & "Template" & i & ".oft", olTemplate
              End If
           End If
       Next
 
       'Open the folder of Templates
       Shell "Explorer.exe" & " " & strTemplateFolder, vbNormalFocus
    End If
End Sub

3. Po to, vėlesniam patogumui, šią makrokomandą siūloma pridėti prie greitosios prieigos įrankių juostos (QAT). Apie išsamius veiksmus galite perskaityti „Kaip paleisti VBA kodą „Outlook“."
4. Galiausiai galite fotografuoti atlikdami toliau nurodytas operacijas.

• Pirmiausia pasirinkite el. laiškų juodraščius, kuriuos norite išsaugoti kaip šablonus.
• Tada spustelėkite makrokomandos mygtuką QAT.
• Baigus makrokomandą, bus rodomas „Windows“ aplankas, skirtas įrašyti numatytuosius „Outlook“ šablonus. Matote, kad pasirinktų juodraščių el. laiškų šablonai yra ten.

Gautųjų taisymo įrankis vis tiek gali sugesti

Kalbant apie vidinį „Outlook“ taisymo įrankį – „Scanpst“, tai įvertins daugybė vartotojų. Be jokios abejonės, ši priemonė iš tiesų gali išspręsti daugumą nedidelių „Outlook“ problemų. Tačiau jis nėra visiškai nepriekaištingas. Jis vis tiek gali sugesti ir sukelti daug klaidų. Pavyzdžiui, esant sunkiam Outlook korupcija, jis negali pataisyti pažeisto PST failo. Tokiu atveju jūs neturite alternatyvos, kaip tik naudoti galingesnį ir pažangesnį trečiosios šalies įrankį, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

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