共用方式為

Office) (MsoEnvelope.Introduction 屬性

  • 發行項

設定或取得使用 MsoEnvelope 物件傳送之檔隨附的簡介文字。 簡介文字會包含在電子郵件中檔的頂端。 讀取/寫入。

語法

運算式。介紹

表達 代表 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 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

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。