Data Recovery Blog

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

1. To start with, you should double click the source email to open it in Message window.
2. Then, in the Message window, you need to hit the “File” button in the top left corner.
3. Next, in the “File” menu, you ought to locate and hit the “Properties” button.
4. Subsequently, the “Properties” dialog box will display.
5. In this dialog box, you should select all the “Internet Headers” and press “Ctrl + C” to copy it.
6. After that, close this dialog box.
7. And then, after backing to the email, you should click the “Forward” button in the ribbon.
8. In the new forwarding email, you can paste the copied full Internet Headers into the message body by pressing “Ctrl + V” keys.
9. Finally, add the recipients and hit “Send” button.

Method 2: Forward an Email with Its Full Internet Headers via VBA

1. First off, select or open the source email.
2. Next, in the Outlook window, tap on “Alt + F11” key buttons.
3. 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 = "someone@datanumen.com"
         'Attach the Text file
         .attachments.Add (strTextFile)
         .Display
    End With
 
    Kill strTextFile
End Sub

4. Finally, you can trigger this macro. Pres “F5” key button in this module.
5. 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.

Author Introduction:

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