Sådan batches gemme flere kladde-e-mails som Outlook-skabeloner

Måske har du oprettet flere udkast til e-mails og håber at genbruge dem mange gange. Hvis ja, hvorfor gemmer du dem ikke batch som Outlook-skabeloner? Denne artikel vil lære dig at udføre det på én gang via VBA.

Som standard tillader Outlook kun brugere at gemme en enkelt e-mail som skabelon på én gang. Med andre ord kan du ikke gemme flere kladde-e-mails som skabeloner samlet. Som du kan se, når du vælger mere end en mail og går til "File"> "Save As", kan du ikke finde "Outlook-skabelon" -formatet i "Save as type" -listen, kun "Only Text" tilgængelig. Men vi vil introducere dig, hvordan du kan realisere det i det følgende.

Batch Gem flere kladde-e-mails som Outlook-skabeloner

1. I starten skal du udløse Outlook VBA-editor.
2. I det nye vindue "Microsoft Visual Basic for Applications" skal du kopiere og indsætte 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. Derefter foreslås det for senere bekvemmelighed at vedhæfte denne makro til Quick Access Toolbar (QAT). Om detaljerede trin kan du læse “Sådan køres VBA-kode i din Outlook"
4. I sidste ende kan du tage et skud ved at følge nedenstående handlinger.

• Vælg først de kladde-e-mails, der skal gemmes som skabeloner.
• Klik derefter på makroknappen i QAT.
• Når makroen er færdig, vises Windows-mappen til at gemme standard Outlook-skabeloner. Du kan se, at skabelonerne fra de valgte kladdemails er derovre.

Værktøjet til reparation af indbakke kan stadig mislykkes

Når det kommer til det interne Outlook-fixværktøj - Scanpst, vil et stort antal brugere sætte pris på det. Utvivlsomt er dette værktøj faktisk i stand til at løse de fleste små problemer i Outlook. Alligevel er det ikke helt fejlfrit. Det kan stadig mislykkes og medføre mange fejl. For eksempel i tilfælde af alvorlig Outlook korruption, er det ikke i stand til at reparere den kompromitterede PST-fil. I dette scenarie har du intet andet alternativ end at bruge et stærkere og tip-top tredjepartsværktøj, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com