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 .

Observaciones

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

Vea 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.