Attachments.Add 方法 (Outlook)

在 Attachments 集合中创建一个新附件。

语法

表达式。添加 (Source、 Type、 Position、 DisplayName)

表达 一个代表 Attachments 对象的变量。

参数

名称	必需/可选	数据类型	说明
Source	必需	Variant	附件的源。 可以是文件（用完整的文件系统路径和文件名表示）或构成附件的 Outlook 项目。
Type	可选	Long	附件的类型。 可以是 OlAttachmentType 常量之一。
Position	可选	Long	此参数仅适用于使用 RTF 格式的电子邮件：附件应放置在邮件正文文本中的位置。 Position 参数的值 1 指定附件应位于邮件正文的开头。 大于电子邮件项目正文中的字符数的值“n”指定附件应放在末尾。 值为 0 表示隐藏附件。
DisplayName	可选	字符串	仅当邮件项采用 RTF 格式且 Type 设置为 olByValue 时，此参数才适用：名称显示在附件的 Inspector 对象中或查看附件的属性时。 如果以纯文本或 HTML 格式的邮件项目，该附件将显示在 Source参数中使用的文件的名称。

返回值

一个代表新附件的 Attachment 对象。

备注

在 附件 添加到项目的 附件 集合， 附件 的 Type 属性将始终返回 olOLE (6) 在保存项目之前。 为了确保一致的结果，总是在添加或删除 附件 集合中的对象之前保存项。

示例

以下 Microsoft Visual Basic /Visual Basic for Applications (VBA) 示例将创建一个邮件项目，在邮件正文开始处嵌入附件，并显示该附件。 若要运行此示例，请确保该附件是 C:\ 文件夹中名为 Test.Doc 的文件。

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", _ 
 olByValue, 1, "Test" 
 myItem.Display 
End Sub

另请参阅

附件对象

将文件附加到邮件项目将 Outlook 联系人项目附加到Email邮件限制 Outlook Email邮件的附件修改 Outlook Email邮件附件

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。