Class EmailAuthor (Word VBA)

The class EmailAuthor represents the author of an email message. To use a EmailAuthor class variable it first needs to be instantiated, for example

Dim ear as EmailAuthor
Set ear = ActiveDocument.Email.CurrentEmailAuthor

Style

Returns a Style object that represents the style associated with the current email author for unsent replies, forwards, or new email messages.

Set MyEmailStyle = _ 
 ActiveDocument.Email.CurrentEmailAuthor.Style 
Msgbox MyEmailStyle.Font.Name