Kartais reikia atspausdinti tik įprastą arba internetinę „Outlook“ el. laiško antraštę. Šiame įraše pateiksime du greitus ir paprastus būdus.
Iš ankstesnio straipsnio – „2 patarimai, kaip išspausdinti „Outlook“ el. laišką be antraštės ir vartotojo vardo“, galite sužinoti paprastus būdus, kaip spausdinti tik laiško tekstą. Tačiau kartais galbūt norėsite tiesiog atspausdinti įprastą arba internetinę el. laiško antraštę, būtent siuntėją, gavėjus ir kitą el. laiško informaciją. Taigi, toliau mes išmokysime jus 2 būdų, kaip tai gauti.
1 būdas: spausdinkite rankiniu būdu
Spausdinti interneto antraštę
- Pirmiausia dukart spustelėkite el. laišką, kad atidarytumėte jį pranešimų lange.
- Tada eikite į meniu „Failas“.
- Skirtuke „Informacija“ spustelėkite mygtuką „Ypatybės“.
- Lange „Ypatybės“ spustelėkite laukelį „Interneto antraštės“.
- Tada paspauskite „Ctrl + A“, kad pasirinktumėte viską, ir „Ctrl + C“, kad nukopijuotumėte visas antraštes.
- Vėliau sukurkite naują el. laišką ir paspauskite „Ctrl + V“, kad įklijuotumėte antraštes į turinį.
- Galiausiai eikite į „Failas“ > „Spausdinti“, kad išspausdintumėte naują laišką.
Spausdinti įprastą antraštę
- Norėdami pradėti, pasirinkite arba atidarykite šaltinio el.
- Tada spustelėkite mygtuką „Persiųsti“.
- Iššokančiajame laiško persiuntimo lange pasirinkite ir pašalinkite pradinio laiško tekstą, kad paliktumėte tik antraštę, kaip ir toliau pateiktoje ekrano kopijoje.
- Galiausiai, kaip įprasta, atspausdinkite dabartinį persiuntimo laišką.
2 būdas: spausdinkite naudodami VBA
Spausdinti interneto antraštę
- Pirmiausia atidarykite arba pasirinkite norimą el. laišką.
- Tada paleiskite „Outlook VBA“ redaktorių naudodami „Alt + F11“.
- Tada į modulį įdėkite šį kodą.
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
- Galiausiai įrankių juostoje spustelėkite piktogramą „Vykdyti“.
- Iš karto bus išspausdinta internetinė el. laiško antraštė.
Spausdinti įprastą antraštę
- Vis dar VBA redaktoriuje nukopijuokite toliau pateiktą kodą į 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 to paleiskite šią makrokomandą.
- Iš karto bus atspausdinta įprasta el. laiško antraštė.
Saugokitės nežinomų laiškų
Antraštės gali atskleisti daug el. laiško informacijos, įskaitant IP adresus. Jei norite nustatyti, ar el. laiškas yra įtartinas, antraštes reikia patikrinti. Tiesą sakant, nerekomenduojama pasitikėti el. laiškais iš nežinomų siuntėjų, nes dauguma jų yra šlamštas ir netgi turi kenkėjiškų makrokomandų. Jie gali lengvai atakuoti jūsų „Outlook“ failą. Jei „Outlook“ failas yra sugadintas, turite pasistengti... „Outlook“ taisymas. Tai gana mazgas, nebent kreipiatės į profesionalų ir tvirtą įrankį, pvz DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com