Hvordan batchlagre flere e-postutkast som Outlook-maler

Kanskje du har laget flere e-postutkast og håper å gjenbruke dem mange ganger. I så fall, hvorfor lagrer du dem ikke som Outlook-maler? Denne artikkelen vil lære deg å oppnå det på én gang via VBA.

Som standard tillater Outlook bare brukere å lagre en enkelt e-post som mal samtidig. Du kan med andre ord ikke lagre flere e-postutkast som maler samtidig. Som du kan se, når du velger mer enn én e-post og går til "Fil"> "Lagre som", kan du ikke finne "Outlook-mal"-formatet i "Lagre som type"-listen, bare "Kun tekst" tilgjengelig. Men vi vil introdusere deg hvordan du bulk realiserer det i det følgende.

Lagre flere utkast til e-poster som Outlook-maler

1. Allerede i begynnelsen, utløs Outlook VBA-editor.
2. I det nye "Microsoft Visual Basic for Applications"-vinduet kopierer og limer du inn VBA-koden nedenfor.

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. Etter det, for senere bekvemmelighet, foreslås det å legge ved denne makroen til Quick Access Toolbar (QAT). Om detaljerte trinn kan du lese "Hvordan kjøre VBA-kode i Outlook"
4. Til syvende og sist kan du ta et skudd ved å følge operasjonene nedenfor.

• Først velger du e-postutkastene som skal lagres som maler.
• Klikk deretter på makroknappen i QAT.
• Når makroen er ferdig, vises Windows-mappen for lagring av standard Outlook-maler. Du kan se at malene fra de valgte e-postutkastene er der borte.

Reparasjonsverktøy for innboks kan fortsatt mislykkes

Når det gjelder det interne Outlook-fixverktøyet - Scanpst, vil et stort antall brukere sette pris på det. Utvilsomt er dette verktøyet faktisk i stand til å løse de fleste små problemer i Outlook. Likevel er det ikke helt feilfritt. Det kan fortsatt mislykkes og få opp mange feil. For eksempel ved alvorlige Outlook-korrupsjon, er den ikke i stand til å reparere den kompromitterte PST-filen. I det scenariet har du ikke noe alternativ enn å bruke et mektigere og tipp topp tredjepartsverktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

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