MailItem.BeforeAttachmentSave 事件 (Outlook)
在保存附件前发生。
语法
expression。 BeforeAttachmentSave( _Attachment_ , _Cancel_ )
expression 表示 MailItem 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Attachment | 必需 | Attachment | 保存 附件 。 |
| Cancel | 必需 | Boolean | (不使用在 VBScript 中)。 假 的事件发生时。 如果事件过程将此参数设置为 True ，则保存操作没有完成，附件没有被更改。 |
备注
此事件对应于将附件保存到邮件存储区时。 之前在保存附件保存项时， BeforeAttachmentSave 事件发生。 如果用户编辑附件，然后保存这些更改， BeforeAttachmentSave 事件将不会发生在这段时间;相反它会发生以后保存项目本身。 它也不会触发附件保存在使用 SaveAsFile 方法的硬盘上。
在 VBScript 中，如果您将此函数的返回值设置为 False ，保存操作将被取消，附件没有被更改。
示例
此 Visual Basic for Applications (VBA) 示例通知用户不允许用户将附件保存。 Cancel 参数设置为 True 以取消保存操作。 示例代码必须放在 类模块（如 ThisOutlookSession）中，并且 TestAttachSave() 应在 Microsoft Outlook 调用事件过程之前调用过程。
Public WithEvents myItem As Outlook.MailItem
Private Sub myItem_BeforeAttachmentSave(ByVal myAttachment As Attachment, Cancel As Boolean)
MsgBox "You are not allowed to save " & myAttachment.FileName
Cancel = True
End Sub
Public Sub TestAttachSave()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。