Якщо ви хочете експортувати частину електронної пошти Outlook, а не всю електронну пошту, як PDF файл, ви можете прочитати цю статтю. Тут ми допоможемо вам досягти цього за допомогою коду VBA.
З моїх попередніх статей - “Як зберегти електронну пошту Outlook як PDF Файл"І"Як швидко експортувати кілька електронних листів Outlook як єдиний PDF Файл", Ви можете навчитися експортувати весь електронний лист як PDF файл. Тим не менш, часом потрібно лише експортувати частину електронного листа як PDF файл. На той момент ви можете використовувати наступний код VBA для його реалізації. Якщо ви абсолютно не знаєте, як користуватися VBA, ви можете звернутися до статті - “Як запустити код VBA у своєму Outlook»Тим часом.
Експортувати частину електронного листа як PDF Файл
- Для початку запустіть програму Outlook.
- Потім відкрийте редактор Outlook VBA за допомогою комбінацій клавіш “Alt + F11”.
- Далі, у цьому новому вікні, відкрийте невикористаний модуль.
- Згодом скопіюйте та вставте наступний код VBA в цей модуль.
Sub ExportSelectionAsPDF()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objDocSelection As Word.Selection
Dim objWordApp As Word.Application
Dim objTempDocument As Word.Document
Dim strPDF As String
'Get the currently opened email
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
If Not objMail Is Nothing Then
'Copy the current selection
Set objMailDocument = objMail.GetInspector.WordEditor
Set objDocSelection = objMailDocument.Application.Selection
objDocSelection.Copy
'Paste the selection into a new Word document
Set objWordApp = CreateObject("Word.Application")
Set objTempDocument = objWordApp.Documents.Add
objWordApp.Visible = True
objTempDocument.Activate
objWordApp.Selection.EndKey wdStory
objWordApp.Selection.PasteAndFormat wdPasteDefault
'Export the document as a PDF file
'Change the path as per your needs
strPDF = "E:\" & objMail.Subject & " (Selection).pdf"
objTempDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF
objTempDocument.Close False
objWordApp.Quit
End If
End Sub
- Після цього слід додати новий макрос на панель швидкого доступу у вікні повідомлень.
- Нарешті, ви можете зробити знімок:
- Спочатку відкрийте електронне повідомлення.
- Потім виберіть вміст, який потрібно експортувати.
- Далі натисніть кнопку макросу на панелі швидкого доступу.
- Одразу макрос запуститься.
- Коли макрос закінчиться, ви можете перейти до попередньо визначеної локальної папки, де ви побачите нову PDF файлу.
- Відкрийте його, і ви побачите, що це схоже на наступний знімок екрана:
Ефективні заходи після пошкодження Outlook
Незважаючи на численні чудові функції, Outlook все ще не може бути захищений від пошкоджень. Насправді він схильний до корупції через різні фактори, такі як віруси, шкідливе програмне забезпечення, несправності програмного забезпечення, апаратні проблеми тощо. У цьому випадку важливо вжити заходів для порятунку пошкоджених даних Outlook, включаючи запуск scanpst щоб відновити файл, перевірте останні резервні копії та скористайтеся потужним надійним інструментом для виправлення PST, таким як DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com