Evento Results.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 Results .
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
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.