Kuidas salvestada mitu mustandit Outlooki mallidena

Outlooki lahendused September 29, 2025

Võib-olla olete loonud mitu e-kirja mustandit ja loodate neid uuesti kasutada palju kordi. Kui jah, siis miks te ei salvesta neid Outlooki mallidena pakkides? See artikkel õpetab teid seda VBA kaudu ühe korraga tegema.

Vaikimisi lubab Outlook kasutajatel salvestada mallina korraga ainult ühe meili. Teisisõnu ei saa mitut e-kirja mustandit mallidena hulgi salvestada. Nagu näete, kui valite rohkem kui ühe meili ja avate "Fail" > "Salvesta nimega", ei leia te loendist "Salvesta tüüp" vormingut "Outlooki mall", saadaval on ainult "Ainult tekst". Kuid järgnevalt tutvustame teile, kuidas seda hulgi realiseerida.

Salvestage mitu mustandit Outlooki mallidena

Salvestage mitu mustandit Outlooki mallidena

  1. Käivitage kohe alguses Outlook VBA redaktor.
  2. Uues aknas "Microsoft Visual Basic for Applications" kopeerige ja kleepige allolev VBA kood.
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

VBA kood – mitme mustandi e-kirjade pakkimine Outlooki mallidena

  1. Pärast seda on hilisema mugavuse huvides soovitatav lisada see makro kiirpääsu tööriistaribale (QAT). Üksikasjalike sammude kohta saate lugeda "Kuidas Outlookis VBA-koodi käivitada"
  2. Lõppkokkuvõttes saate pildi teha, järgides alltoodud toiminguid.
  • Esmalt valige mallidena salvestatavate e-kirjade mustandid.
  • Seejärel klõpsake QAT-is makronuppu.Käivitage makro valitud mustandmeilidel
  • Kui makro on lõppenud, kuvatakse Windowsi kaust Outlooki vaikemallide salvestamiseks. Näete, et valitud mustandite e-kirjade mallid on seal.Outlooki mallid

Postkasti parandustööriist võib siiski ebaõnnestuda

Kui rääkida sisemisest Outlooki parandustööriistast – Scanpst, hindab seda suur hulk kasutajaid. Kahtlemata suudab see utiliit tõepoolest lahendada enamiku Outlooki pisiprobleemidest. Siiski pole see täiesti veatu. See võib ikkagi ebaõnnestuda ja tuua esile palju vigu. Näiteks raskete Outlooki korruptsioon, ei saa see kahjustatud PST-faili parandada. Selle stsenaariumi korral pole teil muud võimalust kui kasutada võimsamat ja tipptasemel kolmanda osapoole tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.