MsoEnvelope Object (Office)

Provides access to functionality that lets you send documents as e-mail messages directly from Microsoft Office applications.

Use the MailEnvelope property of the Document object, Chart object or Worksheet object (depending on the application you are using) to return a MsoEnvelope object.

The following example sends the active Microsoft Word document as an e-mail message to the e-mail address that you pass to the subroutine.

Sub SendMail(ByVal strRecipient As String) 
 'Use a With...End With block to reference the MsoEnvelope object. 
 With Application.ActiveDocument.MailEnvelope 
 'Add some introductory text before the body of the e-mail. 
 .Introduction = "Please read this and send me your comments." 
 'Return a Microsoft Outlook MailItem object that 
 'you can use to send the document. 
 With .Item 
 'All of the mail item settings are saved with the document. 
 'When you add a recipient to the Recipients collection 
 'or change other properties, these settings persist. 
 .Recipients.Add strRecipient 
 .Subject = "Here is the document." 
 'The body of this message will be 
 'the content of the active document. 
 End With 
 End With 
End Sub
© 2014 Microsoft