At times, you need to only print the normal or internet header of an Outlook email. Now, this post will share you 2 quick and simple approaches.
From the previous article – “2 Tips to Print an Outlook Email without Header & Username“, you can learn the easy ways to print only the message body of a mail. But, sometimes, you may want to just print the normal or internet header of an email, namely the sender, recipients and other information of the email. So, hereinafter, we’ll teach you 2 methods to get it.
Method 1: Print Manually
Print Internet Header
- At first, double click the email to open it in Message window.
- Then, go to “File” menu.
- On “Info” tab, click “Properties” button.
- In the “Properties” window, click into the “Internet headers” box.
- Next, press “Ctrl + A” to select all and “Ctrl + C” to copy the full headers.
- Later, create an email new mail and press “Ctrl +V” to paste the headers into body.
- Finally, go to “File” > “Print” to print the new mail.
Print Normal Header
- To begin with, select or open the source email.
- Then, click “Forward” button.
- In the popup forwarding mail, select and remove the original mail’s message body to leave the header only, like the following screenshot.
- Ultimately, print the current forwarding mail as usual.
Method 2: Print with VBA
Print Internet Header
- For a start, open or select the mail that you want.
- Then, launch Outlook VBA editor via “Alt + F11”.
- Next, put the following code into a module.
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
- Lastly, click “Run” icon in toolbar.
- At once, the Internet header of the email will be printed out.
Print Normal Header
- Still in VBA editor, copy the code below into a module.
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
- After that, run this macro.
- Immediately, the normal header of the email will be printed.
Watch out for Unknown Mails
Headers can expose much information of the email, including the IP addresses. If you want to identify whether an email is suspicious, the headers must be checked. To be honest, it is recommended not to trust in the emails from unknown senders in that most of them are spam and even carry malicious macros. They can attack your Outlook file with ease. If Outlook file is corrupt, you have to make efforts to attempt Outlook repair. It is quite knotty unless you resort to a professional and robust tool, such as DataNumen Outlook Repair.
Author Introduction:
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server corruption and outlook repair software products. For more information visit www.datanumen.com
1