Document.Email (Word)

Returns an Email object that contains all the email-related properties of the current document.

MsgBox ActiveDocument.Email _ 
 .CurrentEmailAuthor.Style.NameLocal