Іноді вам потрібно лише надрукувати звичайний або інтернет-заголовок електронного листа Outlook. Зараз у цій публікації ми поділимося двома швидкими та простими способами.
З попередньої статті – «2 поради щодо друку електронного листа Outlook без заголовка та імені користувача“, ви можете навчитися простим способам друкувати лише тіло листа. Але інколи вам може знадобитися просто надрукувати звичайний або інтернет-заголовок електронного листа, а саме відправника, одержувачів та іншу інформацію електронного листа. Отже, далі ми навчимо вас 2 методам його отримання.
Спосіб 1: Друк вручну
Друк інтернет-заголовка
- Спочатку двічі клацніть електронний лист, щоб відкрити його у вікні повідомлення.
- Потім перейдіть в меню «Файл».
- На вкладці «Відомості» натисніть кнопку «Властивості».
- У вікні «Властивості» натисніть на поле «Інтернет-заголовки».
- Потім натисніть «Ctrl + A», щоб вибрати все, і «Ctrl + C», щоб скопіювати повні заголовки.
- Пізніше створіть новий електронний лист і натисніть «Ctrl +V», щоб вставити заголовки в тіло.
- Нарешті, перейдіть до «Файл» > «Друк», щоб надрукувати нове повідомлення.
Надрукувати звичайний заголовок
- Для початку виберіть або відкрийте вихідну електронну пошту.
- Потім натисніть кнопку «Вперед».
- У спливаючому вікні для пересилання пошти виберіть і видаліть текст вихідного листа, щоб залишити лише заголовок, як на знімку екрана нижче.
- Зрештою, роздрукуйте поточну пошту для пересилання як зазвичай.
Спосіб 2. Друк за допомогою VBA
Друк інтернет-заголовка
- Для початку відкрийте або виберіть потрібний лист.
- Потім запустіть редактор Outlook VBA за допомогою «Alt + F11».
- Далі вкладіть наступний код у модуль.
Sub PrintFullHeaders()
Dim objMail As Outlook.MailItem
Dim objPropertyAccessor As Outlook.PropertyAccessor
Dim strHeader As String
Dim objTempMail As Outlook.MailItem
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
'Get full headers
Set objPropertyAccessor = objMail.PropertyAccessor
strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E")
'Print headers in temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
objTempMail.HTMLBody = "<HTML><BODY>" & strHeader & "</BODY></HTML>"
objTempMail.PrintOut
End Sub
- Нарешті, натисніть значок «Виконати» на панелі інструментів.
- Відразу буде роздруковано Інтернет-заголовок електронного листа.
Надрукувати звичайний заголовок
- Перебуваючи в редакторі VBA, скопіюйте наведений нижче код у модуль.
Sub PrintShortHeaders()
Dim objMail As Outlook.MailItem
Dim objTempMail As Outlook.MailItem
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set objMail = ActiveInspector.CurrentItem
Case olExplorer
Set objMail = ActiveExplorer.Selection.Item(1)
End Select
Set objTempMail = objMail.Copy
'Remove the body, leave headers only
objTempMail.Body = ""
objTempMail.PrintOut
End Sub
- Після цього запустіть цей макрос.
- Одразу буде надруковано звичайний заголовок електронного листа.
Слідкуйте за невідомими листами
Заголовки можуть розкривати багато інформації електронного листа, включаючи IP-адреси. Якщо ви хочете визначити, чи є електронний лист підозрілим, необхідно перевірити заголовки. Чесно кажучи, рекомендується не довіряти електронним листам від невідомих відправників, оскільки більшість із них є спамом і навіть містять шкідливі макроси. Вони можуть легко атакувати ваш файл Outlook. Якщо файл Outlook пошкоджений, вам доведеться докласти зусиль, щоб спробувати його відновити. Ремонт Outlook. Це досить складно, якщо ви не вдастеся до професійного та надійного інструменту, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі SQL Server корупція та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com