Можливо, ви створили кілька чернеток електронних листів і сподіваєтесь їх використовувати повторно багато разів. Якщо так, чому б вам не пакетно зберегти їх як шаблони Outlook? Ця стаття навчить вас робити це за один раз за допомогою VBA.
За замовчуванням Outlook дозволяє лише користувачам одночасно зберігати один електронний лист як шаблон. Іншими словами, ви не можете масово зберігати декілька чернеток електронних листів як шаблони. Як бачите, коли ви вибираєте більше одного повідомлення та переходите до «Файл»> «Зберегти як», ви не можете знайти формат «Шаблон Outlook» у списку «Зберегти як тип», доступний лише «Лише текст». Але ми представимо вам, як це реалізувати в наступному.
Пакетне збереження кількох чернеток електронних листів як шаблонів Outlook
- З самого початку запустіть редактор Outlook VBA.
- У новому вікні “Microsoft Visual Basic for Applications” скопіюйте та вставте код 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 та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com