Як зберегти електронну пошту у форматі PDF у програмі Outlook?
Якщо ви працюєте з Microsoft Outlook 2010 і 2007, ви виявите, що в Outlook немає вбудованої програми для зміни електронної пошти у формат PDF. Вам потрібно перетворити електронне повідомлення у файл PDF за допомогою деяких пов’язаних надбудов або за допомогою коду VBA. За допомогою наступної статті ви легко збережете електронну пошту у форматі PDF у програмі Outlook.
Збережіть електронну пошту як PDF-файл у програмі Outlook за допомогою коду VBA
Масове збереження кількох електронних листів у форматі PDF або інших форматів файлів за допомогою масового збереження
Збережіть електронну пошту як PDF-файл у програмі Outlook за допомогою коду VBA
1. По-перше, вам слід вибрати електронний лист, який ви хочете зберегти як PDF.
2. прес Alt + F11 запустити Microsoft Visual Basic для додатків вікна.
3. клацання Insert > Модулі, а потім скопіюйте та вставте наступний код VBA у вікно Модуль.
Код VBA для збереження електронної пошти у форматі PDF:
Sub SaveAsPDFfile()
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
примітки: Цей код VBA успішно протестовано в Outlook 2007 та 2010
4. клацання для запуску коду.
5. Буде a Зберегти файл під час запуску коду з’являється діалогове вікно. Виберіть шлях для збереження файлу, назвіть його і, нарешті, натисніть на зберегти кнопки.
6. Коли код завершиться, електронна пошта успішно перетвориться у файл PDF.
Масове збереження кількох електронних листів у форматі PDF або інших форматів файлів за допомогою масового збереження
з Kutools for Outlook встановлений, ви можете використовувати його Bulk Save утиліта для швидкого збереження або експорту вибраних електронних листів у файли PDF / файли Excel / файли CSV або інші формати файлів.
Kutools for Outlook, includes потужні функції та інструменти для Microsoft Outlook 2019, 2016, 2013, 2010 та Office 365. |
||
1. У папці електронної пошти виберіть повідомлення, які потрібно зберегти як PDF, натисніть Kutools > Bulk Save.
2 В Bulk Save діалоговому вікні, виберіть шлях для розміщення нових файлів, перевірте PDF format, і ви можете вказати Save content як вам потрібно.
3. клацання Ok. Потім вибрані електронні листи зберігаються як PDF-файли окремо.
Групове збереження електронних листів у декілька форматів файлів
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.