Email internet headers contain a list of IP addresses exposing how this email gets to your mailbox. In some special cases, you may want to forward an email with its full internet headers to someone so as to inquire its real sources. This article will show you 2 means.
At times, you may need to get a mail’s internet headers in Outlook. For example, you need to report possible phishing or spam or you want to survey the detailed sources of an email. At that point, you may wish to forward this mail as well as its full internet headers to someone specialized in analyzing email source. Therefore, here we will introduce you 2 methods to accomplish it.
Method 1: Forward an Email with Its Full Internet Headers Manually
- To start with, you should double click the source email to open it in Message window.
- Then, in the Message window, you need to hit the “File” button in the top left corner.
- Next, in the “File” menu, you ought to locate and hit the “Properties” button.
- Subsequently, the “Properties” dialog box will display.
- In this dialog box, you should select all the “Internet Headers” and press “Ctrl + C” to copy it.
- After that, close this dialog box.
- And then, after backing to the email, you should click the “Forward” button in the ribbon.
- In the new forwarding email, you can paste the copied full Internet Headers into the message body by pressing “Ctrl + V” keys.
- Finally, add the recipients and hit “Send” button.
Method 2: Forward an Email with Its Full Internet Headers via VBA
- First off, select or open the source email.
- Next, in the Outlook window, tap on “Alt + F11” key buttons.
- Then, in the VBA editor window, you can copy the following VBA code into an unused module.
Sub ForwardEmailwithFullInternetHeaders() Dim objMail As Outlook.MailItem Dim objPropertyAccessor As Outlook.propertyAccessor Dim strHeader As String Dim strTempFolder As String Dim objFileSystem As Object Dim strTextFile As String Dim objTextFile As Object Dim objForward 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 the Internet Headers Set objPropertyAccessor = objMail.propertyAccessor strHeader = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E") 'Input the Internet Headers to a Text File strTempFolder = Environ("Temp") Set objFileSystem = CreateObject("Scripting.FileSystemObject") strTextFile = strTempFolder & "\Internet Headers.txt" Set objTextFile = objFileSystem.CreateTextFile(strTextFile) objTextFile.Write strHeader objTextFile.Close 'Forward this email Set objForward = objMail.Forward With objForward .To = "email@example.com" 'Attach the Text file .attachments.Add (strTextFile) .Display End With Kill strTextFile End Sub
- Finally, you can trigger this macro. Pres “F5” key button in this module.
- At once, a new email will display, which is a forwarding email. Also, there is a text file attached, which is recording the Internet headers.
Too Many Dangers around Outlook
MS Outlook is aimed at being an excellent email client. Hence, it provides users with various functions. Yet, meanwhile, more dangers are also surrounding it. For instance, it can get corrupted very easily. Therefore, users have to keep a potent and specialized repair tool in vicinity, like DataNumen Outlook Repair, by which users could repair PST files like a breeze.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql corruption and outlook repair software products. For more information visit www.datanumen.com