Document.Email (Word)

Retorna um objeto email que contém todas as propriedades relacionadas a email do documento atual. Somente leitura.

MsgBox ActiveDocument.Email _ 
 .CurrentEmailAuthor.Style.NameLocal