Понякога е нужно само да отпечатате обикновения или интернет заглавен файл на имейл в Outlook. Сега в тази публикация ще ви представим 2 бързи и прости подхода.
От предишната статия - „2 съвета за отпечатване на имейл в Outlook без заглавка и потребителско име“, Можете да научите лесните начини да отпечатате само тялото на съобщението на пощата. Но понякога може да искате да отпечатате нормалната или интернет заглавка на имейл, а именно подателя, получателите и друга информация на имейла. Така че, по-нататък ще ви научим на 2 метода, за да го получите.
Метод 1: Печат ръчно
Печат на заглавието в Интернет
- Отначало щракнете двукратно върху имейла, за да го отворите в прозореца Съобщение.
- След това отидете в менюто „Файл“.
- В раздела „Информация“ щракнете върху бутона „Свойства“.
- В прозореца “Properties” щракнете върху полето “Internet headers”.
- След това натиснете „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
- И накрая, щракнете върху иконата "Run" в лентата с инструменти.
- Веднага ще се разпечата интернет заглавката на имейла.
Печат на нормална заглавка
- Все още в редактора на 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 корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com