Office VBA教程:Introduction属性

设置或返回使用 MsoEnvelope对象发送的文档中包含的介绍性文本。介绍性文本包含于电子邮件中文档的顶部。String 类型,可读写。


expression   必需。该表达式返回“应用于”列表中的对象之一。


本示例将活动的 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 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.
        End With
    End With
End Sub

上页:Office VBA教程:InitialView属性 下页:Office VBA教程:IsCertificateExpired属性

Office VBA教程:Introduction属性

Office VBA教程:IsCertificateExpired属性 Office VBA教程:IsCertificateRevoked属性
Office VBA教程:IsOpen属性 Office VBA教程:IsPriorityDropped属性
Office VBA教程:Issuer属性 Office VBA教程:IsValid属性
Office VBA教程:Item属性 Office VBA教程:KeyboardShortcutTips属性
Office VBA教程:Labels属性 Office VBA教程:Language属性
Office VBA教程:LanguageID属性 Office VBA教程:LanguagePreferredForEditing属性
Office VBA教程:LargeButtons属性 Office VBA教程:LastModified属性
Office VBA教程:Left属性 Office VBA教程:LinkSource属性
Office VBA教程:LinkToContent属性 Office VBA教程:List属性
Office VBA教程:ListCount属性 Office VBA教程:ListHeaderCount属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号