Document.Email (Word)

Devuelve un objeto email que contiene todas las propiedades relacionadas con el correo electrónico del documento actual.

MsgBox ActiveDocument.Email _ 
 .CurrentEmailAuthor.Style.NameLocal