Как сохранить несколько черновиков писем в качестве шаблонов Outlook

Перспективные решения 29 сентября, 2025

Возможно, вы создали несколько черновиков писем и надеетесь использовать их повторно. много раз. Если да, то почему бы вам не сохранить их как шаблоны Outlook? Эта статья научит вас делать это за один раз с помощью VBA.

По умолчанию Outlook позволяет пользователям одновременно сохранять только одно электронное письмо в качестве шаблона. Другими словами, вы не можете массово сохранять несколько черновиков писем в качестве шаблонов. Как видите, когда вы выбираете несколько писем и переходите в «Файл»> «Сохранить как», вы не можете найти формат «Шаблон Outlook» в списке «Тип файла», доступен только «Только текст». Но мы познакомим вас с тем, как массово реализовать это в следующих разделах.

Пакетное сохранение нескольких черновиков писем в качестве шаблонов Outlook

В самом начале запустите редактор Outlook VBA.
В новом окне «Microsoft Visual Basic для приложений» скопируйте и вставьте приведенный ниже код VBA.

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

После этого, для дальнейшего удобства, предлагается прикрепить этот макрос к Панели быстрого доступа (QAT). О подробных шагах вы можете прочитать в разделе «Как запустить код VBA в Outlook
В конечном счете, вы можете сделать снимок, выполнив следующие действия.

Сначала выберите черновики писем, которые нужно сохранить в качестве шаблонов.
Затем нажмите кнопку макроса в QAT.
Когда макрос завершится, отобразится папка Windows для сохранения шаблонов Outlook по умолчанию. Вы можете видеть, что шаблоны из выбранных черновиков писем находятся там.

Инструмент восстановления папки «Входящие» все еще может дать сбой

Когда дело доходит до внутреннего инструмента исправления Outlook — Scanpst, большое количество пользователей оценят его. Несомненно, эта утилита действительно способна решить большинство мелких проблем в Outlook. Тем не менее, он не совсем безупречен. Он по-прежнему может дать сбой и вызвать много ошибок. Например, при тяжелых Повреждение Outlook, он не может восстановить скомпрометированный файл PST. В этом случае у вас нет другой альтернативы, кроме как использовать более мощный и первоклассный сторонний инструмент, такой как DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая sql восстановление и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com