The Sender property returns 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