Evento Items.ItemAdd (Outlook)

Se produce cuando se agregan uno o varios elementos a la colección especificada. Este evento no se ejecuta cuando se agrega de una vez un gran número de elementos a la carpeta. Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).

Sintaxis

expresión. ItemAdd( Item )

Expresión Variable que representa un objeto Items .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Item	Obligatorio	Object	Elemento que se ha agregado.

Ejemplo:

En este ejemplo de Visual Basic para Aplicaciones (VBA), cuando se agrega un nuevo contacto a la carpeta Contactos , el elemento de contacto se adjunta a un mensaje de correo electrónico y se envía a una lista de distribución denominada "Equipo de ventas". El código de ejemplo debe colocarse en un módulo de clase y se debe llamar a la Initialize_handler rutina 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_ItemAdd(ByVal Item As Object) 
 
 Dim myOlMItem As Outlook.MailItem 
 
 Dim myOlAtts As Outlook.Attachments 
 
 Set myOlMItem = myOlApp.CreateItem(olMailItem) 
 
 myOlMItem.Save 
 
 Set myOlAtts = myOlMItem.Attachments 
 
 ' Add new contact to attachments in mail message 
 
 myOlAtts.Add Item, olByValue 
 
 myOlMItem.To = "Sales Team" 
 
 myOlMItem.Subject = "New contact" 
 
 myOlMItem.Send 
 
End Sub

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.