Evento Items.ItemRemove (Outlook)

Se produce cuando se elimina un elemento de la colección especificada.

Sintaxis

expresión. ItemRemove

Expresión Variable que representa un objeto Items .

Comentarios

Este evento no se ejecuta cuando se elimina el último elemento de un archivo de carpetas personales (.pst), o bien si se eliminan de golpe 16 o más elementos de un archivo PST, un buzón de Microsoft Exchange o una carpeta pública de Exchange. Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).

Ejemplo:

En este ejemplo de Microsoft Visual Basic para Aplicaciones (VBA), se envía un mensaje de notificación opcional a un grupo de trabajo cuando el usuario quita un contacto de la carpeta Contactos predeterminada. El código de ejemplo debe incluirse en un módulo de clase, y se debe llamar a la rutina Initialize_handler antes de que Microsoft Outlook pueda llamar al procedimiento de evento.

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

Consulte también

Objeto Items

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.