当打开项目中的附件进行阅读时发生。
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