MsoEnvelope 对象

MsoEnvelope CommandBars

提供直接从 Microsoft Office 应用程序以邮件发送文档的功能。

使用 MsoEnvelope 对象

使用 Document 对象、Chart 对象或 Worksheet 对象（取决于使用的应用程序）的 MailEnvelope 属性返回一个 MsoEnvelope 对象。

本示例将活动的 Microsoft Word 文档以电子邮件发送到传递给子例程的电子邮件地址。

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 will persist.
            .Recipients.Add strRecipient
            .Subject = "Here is the document."

            'The body of this message will be
            'the content of the active document.
            .Send
        End With
    End With
End Sub