MsoEnvelope オブジェクト (Office)

Microsoft Office アプリケーションから直接電子メール メッセージとしてドキュメントを送信できる機能へのアクセスを提供します。

注釈

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 email. 
 .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. 
 .Send 
 End With 
 End With 
End Sub

関連項目

• MsoEnvelope オブジェクト メンバー
• オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。