AttachmentRead 事件

       

当打开项目中的附件进行阅读时发生。

Sub object_AttachmentRead(ByVal Attachment As Attachment)

object  该对象的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。

Attachment  必选。已打开的 Attachment

示例

本 VBScript 示例提醒用户也保存对原始嵌入文件所做的更改。

Sub Item_AttachmentRead(ByVal ReadAttachment)
    If ReadAttachment.Type = 1 then
        MsgBox "If you change this file, save your changes to the original as well."
    End If
End Sub