Včasih morate natisniti le običajno ali internetno glavo e-poštnega sporočila v Outlooku. V tej objavi vam bomo predstavili dva hitra in preprosta pristopa.
Iz prejšnjega članka – “2 nasveta za tiskanje Outlookove e-pošte brez glave in uporabniškega imena«, se lahko naučite preprostih načinov tiskanja samo telesa sporočila. Toda včasih boste morda želeli samo natisniti običajno ali internetno glavo e-pošte, in sicer pošiljatelja, prejemnike in druge podatke e-pošte. Torej, v nadaljevanju vas bomo naučili 2 metod, da ga dobite.
1. način: Ročno tiskanje
Natisni internetno glavo
- Najprej dvokliknite e-pošto, da jo odprete v oknu Sporočila.
- Nato pojdite v meni »Datoteka«.
- Na zavihku "Informacije" kliknite gumb "Lastnosti".

- V oknu »Lastnosti« kliknite polje »Internetne glave«.
- Nato pritisnite »Ctrl + A«, da izberete vse, in »Ctrl + C«, da kopirate celotne glave.
- Pozneje ustvarite novo e-pošto in pritisnite »Ctrl + V«, da prilepite glave v telo.
- Na koncu pojdite na »Datoteka« > »Natisni«, da natisnete novo pošto.
Natisni običajno glavo
- Za začetek izberite ali odprite izvorno e-pošto.
- Nato kliknite gumb »Naprej«.
- V pojavnem oknu za posredovanje e-pošte izberite in odstranite telo sporočila izvirne pošte, da pustite samo glavo, kot je prikazano na naslednjem posnetku zaslona.
- Na koncu natisnite trenutno posredovano pošto kot običajno.
2. način: Tiskanje z VBA
Natisni internetno glavo
- Za začetek odprite ali izberite želeno pošto.
- Nato zaženite urejevalnik Outlook VBA prek »Alt + F11«.
- Nato v modul vstavite naslednjo kodo.
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
- Na koncu kliknite ikono »Zaženi« v orodni vrstici.
- Takoj bo natisnjena internetna glava e-pošte.
Natisni običajno glavo
- Še vedno v urejevalniku VBA kopirajte spodnjo kodo v modul.
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
- Po tem zaženite ta makro.
- Takoj bo natisnjena običajna glava e-pošte.
Pazite na neznano pošto
Glave lahko razkrijejo veliko informacij o e-pošti, vključno z naslovi IP. Če želite ugotoviti, ali je e-pošta sumljiva, morate preveriti glave. Iskreno povedano, ni priporočljivo zaupati e-poštnim sporočilom neznanih pošiljateljev, saj je večina neželene pošte in celo vsebuje zlonamerne makre. Z lahkoto lahko napadejo vašo Outlookovo datoteko. Če je Outlookova datoteka poškodovana, se morate potruditi in jo poskusiti odpraviti. Outlook popravilo. Precej zavozlano je, razen če posežete po profesionalnem in robustnem orodju, kot je npr DataNumen Outlook Repair.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server korupcija in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com






