Document.MailEnvelope (Word)

Devuelve un objeto MsoEnvelope que representa el encabezado del mensaje de correo electrónico de un 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