Items.ItemRemove event (Outlook)
Occurs when an item is deleted from the specified collection.
expression A variable that represents an Items object.
This event does not run when the last item in a Personal Folders file (.pst) is deleted, or if 16 or more items are deleted at once from a PST file, Microsoft Exchange mailbox, or an Exchange public folder. This event is not available in Microsoft Visual Basic Scripting Edition (VBScript).
This Microsoft Visual Basic for Applications (VBA) example optionally sends a notification message to a workgroup when the user removes a contact from the default Contacts folder. The sample code must be placed in a class module, and the
Initialize_handler routine must be called before the event procedure can be called by Microsoft Outlook.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.