Vielleicht haben Sie mehrere E-Mail-Entwürfe erstellt und hoffen, diese wiederverwenden zu können viele Male. Wenn ja, warum speichern Sie sie nicht stapelweise als Outlook-Vorlagen? In diesem Artikel erfahren Sie, wie Sie dies in einem Schritt über VBA erreichen.
Standardmäßig erlaubt Outlook Benutzern nur das gleichzeitige Speichern einer einzelnen E-Mail als Vorlage. Mit anderen Worten, Sie können nicht mehrere E-Mail-Entwürfe gleichzeitig als Vorlagen speichern. Wie Sie sehen, können Sie, wenn Sie mehr als eine E-Mail auswählen und zu „Datei“ > „Speichern unter“ gehen, das Format „Outlook-Vorlage“ in der Liste „Speichern als“ nicht finden, sondern nur „Nur Text“. Im Folgenden stellen wir Ihnen jedoch vor, wie Sie dies in großen Mengen realisieren können.
Mehrere E-Mail-Entwürfe im Stapel als Outlook-Vorlagen speichern
- Starten Sie gleich zu Beginn den Outlook VBA-Editor.
- Kopieren Sie im neuen Fenster „Microsoft Visual Basic for Applications“ den unten stehenden VBA-Code und fügen Sie ihn ein.
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
- Danach wird zur späteren Vereinfachung empfohlen, dieses Makro an die Symbolleiste für den Schnellzugriff (QAT) anzuhängen. Über detaillierte Schritte können Sie lesen „So führen Sie VBA-Code in Outlook aus"
- Letztendlich können Sie eine Aufnahme machen, indem Sie die folgenden Schritte ausführen.
- Wählen Sie zunächst die E-Mail-Entwürfe aus, die als Vorlagen gespeichert werden sollen.
- Klicken Sie dann auf die Makroschaltfläche in der QAT.
- Wenn das Makro abgeschlossen ist, wird der Windows-Ordner zum Speichern der Standard-Outlook-Vorlagen angezeigt. Sie können sehen, dass sich dort die Vorlagen aus den ausgewählten E-Mail-Entwürfen befinden.
Das Tool zum Reparieren des Posteingangs kann immer noch fehlschlagen
Wenn es um das interne Outlook-Fix-Tool Scanpst geht, werden es viele Benutzer zu schätzen wissen. Zweifellos ist dieses Dienstprogramm tatsächlich in der Lage, die meisten kleinen Probleme in Outlook zu lösen. Dennoch ist es nicht ganz fehlerfrei. Es kann immer noch fehlschlagen und viele Fehler hervorbringen. Zum Beispiel bei schweren Outlook-Korruption, kann die kompromittierte PST-Datei nicht repariert werden. In diesem Szenario haben Sie keine andere Möglichkeit, als ein mächtigeres und erstklassiges Drittanbieter-Tool zu verwenden, wie z DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Wiederherstellung und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX