Mõnikord on vaja printida ainult Outlooki e-kirja tavalist või internetipäist. Nüüd jagab see postitus teiega kahte kiiret ja lihtsat lähenemisviisi.
Eelmisest artiklist – “2 näpunäidet Outlooki meili ilma päise ja kasutajanimeta printimiseks“, saate õppida lihtsaid viise, kuidas printida ainult kirja sisu. Kuid mõnikord võite soovida lihtsalt printida meili tavalise või Interneti-päise, nimelt meili saatja, saajate ja muu teabe. Nii et edaspidi õpetame teile selle saamiseks kahte meetodit.
1. meetod: printige käsitsi
Interneti-päise printimine
- Esmalt topeltklõpsake e-kirja, et avada see sõnumiaknas.
- Seejärel minge menüüsse "Fail".
- Klõpsake vahekaardil „Teave” nuppu „Atribuudid”.

- Klõpsake aknas "Atribuudid" kasti "Interneti päised".
- Järgmisena vajutage kõigi valimiseks "Ctrl + A" ja täielike päiste kopeerimiseks "Ctrl + C".
- Hiljem looge uus e-kiri ja vajutage päiste kehasse kleepimiseks klahvikombinatsiooni Ctrl + V.
- Lõpuks avage uue kirja printimiseks "Fail" > "Prindi".
Printige tavaline päis
- Alustuseks valige või avage lähtemeil.
- Seejärel klõpsake nuppu "Edasta".
- Hüpikaknas e-kirjade edasisaatmine valige ja eemaldage algse kirja keha, et jätta ainult päis, nagu järgmine ekraanipilt.
- Lõpuks printige praegune edasisuunamiskiri nagu tavaliselt.
2. meetod: printige VBA-ga
Interneti-päise printimine
- Alustuseks avage või valige soovitud e-kiri.
- Seejärel käivitage Outlooki VBA redaktor, kasutades "Alt + F11".
- Järgmisena sisestage järgmine kood moodulisse.
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
- Lõpuks klõpsake tööriistaribal ikooni "Käivita".
- Kohe prinditakse välja meili Interneti-päis.
Printige tavaline päis
- Ikka VBA redaktoris, kopeerige allolev kood moodulisse.
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
- Pärast seda käivitage see makro.
- Kohe prinditakse e-kirja tavaline päis.
Olge tundmatute kirjade eest
Päised võivad paljastada palju e-kirja kohta käivat teavet, sealhulgas IP-aadressid. Kui soovite tuvastada, kas e-kiri on kahtlane, tuleb päiseid kontrollida. Ausalt öeldes on soovitatav mitte usaldada tundmatute saatjate e-kirju, kuna enamik neist on rämpspost ja sisaldavad isegi pahatahtlikke makrosid. Nad võivad teie Outlooki faili hõlpsalt rünnata. Kui Outlooki fail on rikutud, peate tegema pingutusi, et proovida Outlooki parandamine. See on üsna sõlmeline, kui te ei kasuta professionaalset ja tugevat tööriista, näiteks DataNumen Outlook Repair.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom






