Երբեմն անհրաժեշտ է տպել միայն Outlook էլ.փոստի սովորական կամ ինտերնետային վերնագիրը: Այս գրառումը ձեզ կներկայացնի 2 արագ և պարզ մոտեցում:
Նախորդ հոդվածից – «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.
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server կոռուպցիա և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com






