Reizēm ir nepieciešams izdrukāt tikai parasto vai interneta e-pasta galveni programmā Outlook. Šajā ierakstā ir sniegtas divas ātras un vienkāršas metodes.
No iepriekšējā raksta - "2 padomi, kā izdrukāt Outlook e-pastu bez galvenes un lietotājvārda“, varat uzzināt vienkāršus veidus, kā izdrukāt tikai pasta ziņojuma pamattekstu. Bet dažreiz jūs varat vienkārši izdrukāt e-pasta parasto vai interneta galveni, proti, sūtītāju, adresātus un citu e-pasta informāciju. Tātad, turpmāk mēs iemācīsim jums 2 metodes, kā to iegūt.
1. metode: drukājiet manuāli
Drukāt interneta galveni
- Vispirms veiciet dubultklikšķi uz e-pasta, lai to atvērtu ziņojuma logā.
- Pēc tam dodieties uz izvēlni "Fails".
- Cilnē "Informācija" noklikšķiniet uz pogas "Properties".
- Logā "Properties" noklikšķiniet uz lodziņa "Interneta galvenes".
- Pēc tam nospiediet "Ctrl + A", lai atlasītu visu, un "Ctrl + C", lai kopētu visas galvenes.
- Vēlāk izveidojiet jaunu e-pasta ziņojumu un nospiediet taustiņu kombināciju Ctrl+V, lai ielīmētu galvenes pamattekstā.
- Visbeidzot, dodieties uz “Fails” > “Drukāt”, lai izdrukātu jauno pastu.
Drukājiet parasto galveni
- Lai sāktu, atlasiet vai atveriet avota e-pastu.
- Pēc tam noklikšķiniet uz pogas "Pārsūtīt".
- Uznirstošajā ziņojuma pārsūtīšanas logā atlasiet un noņemiet sākotnējā vēstules ziņojuma pamattekstu, lai atstātu tikai galveni, piemēram, tālāk redzamajā ekrānuzņēmumā.
- Visbeidzot, kā parasti, izdrukājiet pašreizējo pārsūtīšanas pastu.
2. metode: drukājiet, izmantojot VBA
Drukāt interneta galveni
- Lai sāktu, atveriet vai atlasiet vajadzīgo e-pastu.
- Pēc tam palaidiet Outlook VBA redaktoru, izmantojot taustiņu kombināciju Alt + F11.
- Pēc tam ievietojiet šādu kodu modulī.
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
- Visbeidzot, rīkjoslā noklikšķiniet uz ikonas “Palaist”.
- Tūlīt tiks izdrukāta e-pasta interneta galvene.
Drukājiet parasto galveni
- Joprojām VBA redaktorā kopējiet tālāk norādīto kodu 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
- Pēc tam palaidiet šo makro.
- Tūlīt tiks izdrukāta parastā e-pasta galvene.
Uzmanieties no nezināmiem pastiem
Galvenes var atklāt daudz informācijas par e-pastu, tostarp IP adreses. Lai noteiktu, vai e-pasts ir aizdomīgs, galvenes ir jāpārbauda. Godīgi sakot, nav ieteicams uzticēties e-pastiem no nezināmiem sūtītājiem, jo lielākā daļa no tiem ir surogātpasts un pat satur ļaunprātīgus makro. Tie var viegli uzbrukt jūsu Outlook failam. Ja Outlook fails ir bojāts, jums ir jāpieliek pūles, lai mēģinātu to atjaunot. Outlook remonts. Tas ir diezgan mezglains, ja vien neizmantojat profesionālu un izturīgu instrumentu, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar