Někdy stačí vytisknout pouze běžnou nebo internetovou hlavičku e-mailu v Outlooku. V tomto příspěvku se s vámi nyní podělíme o dva rychlé a jednoduché postupy.
Z předchozího článku - „2 tipy pro tisk e-mailu aplikace Outlook bez záhlaví a uživatelského jména„, Můžete se naučit snadné způsoby, jak vytisknout pouze text zprávy. Někdy však možná budete chtít jen vytisknout normální nebo internetovou hlavičku e-mailu, konkrétně odesílatele, příjemce a další informace o e-mailu. Dále vás tedy naučíme 2 způsoby, jak to získat.
Metoda 1: Ruční tisk
Tisk záhlaví internetu
- Nejprve poklepejte na e-mail a otevřete jej v okně Zprávy.
- Poté přejděte do nabídky „Soubor“.
- Na kartě „Informace“ klikněte na tlačítko „Vlastnosti“.
- V okně „Vlastnosti“ klikněte do pole „Internetová záhlaví“.
- Poté stiskněte „Ctrl + A“ pro výběr všech a „Ctrl + C“ pro zkopírování úplných záhlaví.
- Později vytvořte e-mail nový e-mail a stisknutím kláves „Ctrl + V“ vložte záhlaví do těla.
- Nakonec přejděte na „Soubor“> „Tisk“ a vytiskněte novou poštu.
Tisknout normální záhlaví
- Nejprve vyberte nebo otevřete zdrojový e-mail.
- Poté klikněte na tlačítko „Přeposlat“.
- Ve vyskakovacím okně pro přeposílání pošty vyberte a odeberte tělo zprávy původní pošty, abyste ponechali pouze záhlaví, například následující snímek obrazovky.
- Nakonec vytiskněte aktuální přeposílanou poštu jako obvykle.
Metoda 2: Tisk pomocí VBA
Tisk záhlaví internetu
- Pro začátek otevřete nebo vyberte požadovanou poštu.
- Poté spusťte editor Outlook VBA pomocí „Alt + F11“.
- Dále vložte následující kód do modulu.
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
- Nakonec klikněte na ikonu „Spustit“ na panelu nástrojů.
- Najednou se vytiskne internetová hlavička e-mailu.
Tisknout normální záhlaví
- Stále v editoru VBA zkopírujte níže uvedený kód do modulu.
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
- Poté spusťte toto makro.
- Okamžitě se vytiskne normální záhlaví e-mailu.
Dávejte pozor na neznámé e-maily
Záhlaví e-mailu může odhalit mnoho informací, včetně IP adres. Pokud chcete zjistit, zda je e-mail podezřelý, je nutné zkontrolovat záhlaví. Upřímně řečeno, nedoporučuje se důvěřovat e-mailům od neznámých odesílatelů, protože většina z nich je spam a dokonce obsahuje škodlivá makra. Mohou snadno napadnout váš soubor Outlooku. Pokud je soubor Outlooku poškozen, musíte se pokusit o jeho odstranění. Oprava aplikace Outlook. Je to docela suverénní, pokud se uchýlíte k profesionálnímu a robustnímu nástroji, jako je DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server korupce a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com