The Sender property returns or sets the sender of a message as an AddressEntry object. Read-only.
Set objAddrEntry = objMessage.Sender
Object (AddressEntry)
This code fragment displays the name of the sender of a message:
' from the sample function Message_Sender Set objAddrEntry = objMessage.Sender If objAddrEntry Is Nothing Then MsgBox "Could not set the AddressEntry object from the Sender" Exit Function End If MsgBox "Message was sent by " & objAddrEntry.Name