Перейти к основному содержанию

Как пакетно конвертировать несколько писем в файлы PDF в Outlook?

В Outlook функция «Сохранить как» позволяет сохранить электронное письмо только в формате HTML, TXT, MHT, MSG и в формате шаблона. Если вы хотите преобразовать электронное письмо (-а) в файл (-а) PDF, как вы можете это сделать? В этой статье я расскажу о некоторых приемах решения этой проблемы.

Преобразуйте одно электронное письмо в файл PDF с помощью функции печати

Преобразование одного электронного письма в файл PDF с помощью VBA

Конвертируйте пакетные электронные письма в отдельные PDF-файлы с помощью утилиты «Сохранить как файл»хорошая идея3


Преобразуйте одно электронное письмо в файл PDF с помощью функции печати

В Outlook вы можете использовать функцию печати, чтобы сохранить одно электронное письмо в виде файла PDF.

1. Выберите электронное письмо, которое хотите преобразовать в PDF, нажмите File > Печать / PDF, наведите на Microsoft Print to PDF из Printer выпадающий список и нажмите Print.
doc пакетное преобразование электронной почты в pdf 1

2. в Save Print Output As В диалоговом окне выберите один путь для размещения файла и дайте ему имя.
doc пакетное преобразование электронной почты в pdf 2

3. Нажмите Saveи нажмите Cancel чтобы остановить печать.
doc пакетное преобразование электронной почты в pdf 3

Теперь выбранное сообщение преобразовано в файл PDF.

Внимание: Этот метод работает только в Outlook 2016.


Преобразование одного электронного письма в файл PDF с помощью VBA

Если вы работаете в Outlook 2007 или 2010, вы можете применить код VBA для преобразования одного сообщения электронной почты в файл PDF.

1. Выберите одно электронное письмо и нажмите Alt + F11 ключи для включения Microsoft Visual Basic for Applications окно.

2. Нажмите Insert > Module, и вставьте ниже код в Module скрипты.

VBA: конвертировать электронную почту в pdf

Sub SaveAsPDFfile()
'UpdatebyExtendoffice
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub

doc пакетное преобразование электронной почты в pdf 4

3. Нажмите F5 нажмите клавишу, чтобы активировать диалог сохранения файла, выберите папку для размещения файла и дайте ей имя.
doc пакетное преобразование электронной почты в pdf 5

4. Нажмите Save.

Функции: Если код не запускается, вы можете попытаться перейти в Центр управления безопасностью и установить флажок «Включить все макросы» в разделе «Параметры макросов».
doc пакетное преобразование электронной почты в pdf 6


Конвертируйте пакетные электронные письма в отдельные PDF-файлы с помощью утилиты «Сохранить как файл»

С помощью вышеуказанных методов вы можете сохранить только одно сообщение в виде файла PDF за раз, если вы хотите пакетно преобразовать несколько писем в отдельные файлы PDF, вы можете попробовать Kutools for OutlookАвтора Массовое сохранение утилита.

Kutools for Outlook, Тур включает:  мощные функции и инструменты для Microsoft Outlook 2016, 2013, 2010 и Office 365.

Бесплатная установка Kutools for Outlook, а затем выполните следующие действия:

1. Выберите электронные письма, которые хотите преобразовать, и нажмите Kutools > Bulk Save.
doc пакетное преобразование электронной почты в pdf 7

2. в Save message as other files диалоговом окне выберите путь для поиска файла и установите флажок PDF формат, вы можете проверить параметры сохранения содержимого в правом разделе.
doc пакетное преобразование электронной почты в pdf 8

3. Нажмите Ok.

Теперь электронные письма преобразованы в файлы PDF.
doc пакетное преобразование электронной почты в pdf 10


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations