Results.ItemRemove 事件 (Outlook)
当从指定集合中删除项目时发生。
expression。 ItemRemove
表达 一个代表 Results 对象的变量。
当删除个人文件夹文件 (.pst) 中的最后一项时,或从 .pst 文件、Microsoft Exchange 邮箱或 Exchange 公用文件夹中同时删除 16 个或更多项目时,该事件不运行。
该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。
此 Microsoft Visual Basic for Applications (VBA) 示例在用户从默认的 "联系人" 文件夹中删除联系人时,有选择地向工作组发送通知消息。 示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler
例程。
Public WithEvents myOlItems As Outlook.Items
Public Sub Initialize_handler()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
End Sub
Private Sub myOlItems_ItemRemove()
Dim myOlMItem As Outlook.MailItem
If MsgBox("Do you want to notify the Sales Team?", vbYesNo + vbQuestion) = vbYes Then
Set myOlMItem = Application.CreateItem(olMailItem)
myOlMItem.To = "Sales Team"
myOlMItem.Subject = "Remove Contact"
myOlMItem.Body = "Remove the following contact from your list:"
myOlMItem.Display
End If
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。