Thread: Message Header
View Single Post
  #2  
Old March 28th 07, 08:34 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Message Header

Are you talking about the Internet headers for an e-mail?

If so, you need to use CDO to read the value of PR_TRANSPORT_MESSAGE_HEADERS
from a Field object, or use Redemption (http://www.dimastr.com).

If you have Outlook 2007, you can use VBA:

Sub DemoPropertyAccessorGetProperty()
Dim PropName, Header As String
Dim oMail As Object
Dim oPA As Outlook.PropertyAccessor
'Get first item in the inbox
Set oMail = _
Application.Session.GetDefaultFolder(olFolderInbox ).Items(1)
'PR_TRANSPORT_MESSAGE_HEADERS
PropName = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
'Obtain an instance of PropertyAccessor class
Set oPA = oMail.PropertyAccessor
'Call GetProperty
Header = oPA.GetProperty(PropName)
Debug.Print (Header)
End Sub

--
Eric Legault (Outlook MVP, MCDBA, MCTS: Messaging & Collaboration)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"John Lane" wrote:

Never mind. The intrinsic application object, eh?

"John Lane" wrote:

And not see the popup message.

"John Lane" wrote:

How does one get at the message header programatically? I don't see a
property for it. Thanks.

Ads