Outlook VBA教程:AttachmentAdd事件

当附件添加到项目中时发生。

Sub object_AttachmentAdd(Attachment As Attachment)

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

Attachment  必选。添加到项目中的Attachment

VBA示例

本 VBScript 示例在添加了嵌入附件后,检查项目的大小,并在项目大小超过 500,000 字节时显示警告信息。


Sub Item_AttachmentAdd(ByVal NewAttachment)
    If NewAttachment.Type = 1 Then
        Item.Save
        If Item.Size > 500000 Then
            MsgBox "Warning: Item size is now " & Item.Size & " bytes."
        End If
    End If
End Sub

上页:Outlook VBA教程:AdvancedSearchStopped事件 下页:Outlook VBA教程:AttachmentRead事件

Outlook VBA教程:AttachmentAdd事件:相关链接

Outlook VBA教程:AttachmentRead事件 Outlook VBA教程:BeforeAttachmentSave事件
Outlook VBA教程:BeforeCheckNames事件 Outlook VBA教程:BeforeDelete事件
Outlook VBA教程:BeforeFolderSwitch事件 Outlook VBA教程:BeforeGroupAdd事件
Outlook VBA教程:BeforeGroupRemove事件 Outlook VBA教程:BeforeGroupSwitch事件
Outlook VBA教程:BeforeItemCopy事件 Outlook VBA教程:BeforeItemCut事件
Outlook VBA教程:BeforeItemPaste事件 Outlook VBA教程:BeforeMaximize事件
Outlook VBA教程:BeforeMinimize事件 Outlook VBA教程:BeforeMove事件
Outlook VBA教程:BeforeNavigate事件 Outlook VBA教程:BeforeReminderShow事件
Outlook VBA教程:BeforeShortcutAdd事件 Outlook VBA教程:BeforeShortcutRemove事件
Outlook VBA教程:BeforeSize事件 Outlook VBA教程:BeforeViewSwitch事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号