I cannot find any Microsoft documentation about this
1) Issue a reply on the message and review the recipients collection to get
at the email address.
2) Use Collaboration Data Objects 1.21 to get at the information
Function SenderFromAddress(objMsg As MailItem) As String
Dim strEntryID As String
Dim strStoreID As String
Dim objSession As MAPI.Session
Dim objCDOItem As MAPI.Message
' get EntryID and StoreID for message
strEntryID = objMsg.EntryID
strStoreID = objMsg.Parent.StoreID
' start CDO session
Set objSession = CreateObject("MAPI.Session")
objSession.Logon , , False, False
' pass item to CDO and get sender address
On Error Resume Next
Set objCDOItem = objSession.GetMessage(strEntryID, strStoreID)
SenderFromAddress = objCDOItem.Sender.Address
Set objSession = Nothing
Set objCDOItem = Nothing
End Function
--
/Neo
"dsbsystems" <dsbsy...@aladdinscave.net> wrote in message
news:3b156...@news2.vip.uk.com...