Visual Basic

<br />
Public Function InternetHeaders() As String <br />
     <br />
    Dim objOutlook As Outlook.Application <br />
    Dim objItem As Outlook.MailItem <br />
    Dim objCDO As MAPI.Session <br />
    Dim objMessage As MAPI.Message <br />
    Dim objFields As MAPI.Fields <br />
    Dim strID As String <br />
     <br />
    Const CdoPR_TRANSPORT_MESSAGE_HEADERS = &H7D001E <br />
     <br />
    On Error Resume Next <br />
     <br />
     ' Instantiate an Outlook Application object.<br />
    Set objOutlook = CreateObject("Outlook.Application") <br />
     <br />
     'Find the current email item and get its EntryID<br />
    Set objItem = objOutlook.ActiveInspector.CurrentItem <br />
    strID = objItem.EntryID <br />
     <br />
     'Then set up a CDO Session using a piggy-back login<br />
    Set objCDO = CreateObject("MAPI.Session") <br />
    objCDO.Logon "", "", False, False <br />
     <br />
     'Now get the item as a CDO Message<br />
    Set objMessage = objCDO.GetMessage(strID) <br />
     <br />
     'Now get the headers from the message<br />
    Set objFields = objMessage.Fields <br />
    InternetHeaders = objFields.Item(CdoPR_TRANSPORT_MESSAGE_HEADERS).Value <br />
     <br />
     'Now that the headers are captured in a string you can do whatever you want with them<br />
    objCDO.Logoff <br />
     <br />
    Set objFields = Nothing <br />
    Set objMessage = Nothing <br />
    Set objCDO = Nothing <br />
    Set objItem = Nothing <br />
    Set objOutlook = Nothing <br />
End Function <br />