通过

Items.ItemRemove 事件 (Outlook)

  • 项目

当从指定集合中删除项目时发生。

语法

expression。 ItemRemove

表达 一个代表 Items 对象的变量。

备注

当删除个人文件夹文件 (.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

另请参阅

Items 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。