Document.MailEnvelope (Word)

Retorna um objeto MsoEnvelope que representa um cabeçalho de email para um documento.

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