Document.MailEnvelope (Word)

Returns an MsoEnvelope object that represents an email header for a document.

Sub HeaderComments() 
 
 ActiveDocument.MailEnvelope.Introduction = _ 
 "Please review this document and let me know " & _ 
 "what you think. I need your input by Friday." & _ 
 " Thanks." 
 
End Sub