Kako skupno spremiti više nacrta e-poruka kao Outlook predloške

Možda ste izradili nekoliko nacrta e-poruka i nadate se da ćete ih ponovno upotrijebiti puno puta. Ako je tako, zašto ih skupno ne spremite kao Outlook predloške? Ovaj će vas članak naučiti kako to postići u jednom potezu putem VBA.

Outlook prema zadanim postavkama dopušta korisnicima samo spremanje jedne e-pošte kao predloška odjednom. Drugim riječima, ne možete skupno spremiti više nacrta e-poruka kao predloške. Kao što vidite, kada odaberete više od jedne poruke e-pošte i odete na "Datoteka" > "Spremi kao", ne možete pronaći format "Outlook predložak" na popisu "Spremi kao vrstu", dostupan je samo "Samo tekst". No, u nastavku ćemo vam predstaviti kako to skupno realizirati.

Skupno spremanje više nacrta e-poruka kao Outlook predložaka

1. Na samom početku pokrenite Outlook VBA editor.
2. U novom prozoru “Microsoft Visual Basic for Applications” kopirajte i zalijepite donji 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. Nakon toga, za kasniju pogodnost, predlaže se priložiti ovu makronaredbu alatnoj traci za brzi pristup (QAT). O detaljnim koracima, možete pročitati “Kako pokrenuti VBA kod u vašem Outlooku"
4. U konačnici, možete snimiti slijedeći operacije u nastavku.

• Najprije odaberite skice e-poruka koje želite spremiti kao predloške.
• Zatim kliknite gumb makronaredbe u QAT-u.
• Kada makronaredba završi, prikazat će se Windows mapa za spremanje zadanih Outlook predložaka. Možete vidjeti da su predlošci iz odabranih nacrta e-pošte tamo.

Alat za popravak pristigle pošte i dalje može zakazati

Što se tiče internog Outlook alata za popravke – Scanpst, veliki broj korisnika će ga cijeniti. Bez sumnje, ovaj uslužni program doista može riješiti većinu malih problema u programu Outlook. Ipak, nije potpuno besprijekoran. Još uvijek može zakazati i izazvati mnoge pogreške. Na primjer, u slučaju teških Outlook korupcija, ne može popraviti ugroženu PST datoteku. U tom scenariju nemate druge mogućnosti nego upotrijebiti moćniji i vrhunski alat treće strane, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com