Método Items.Add (Outlook)

Crea un elemento de Outlook nuevo en la colección Items de la carpeta.

Sintaxis

expresión. Añadir_Type_

Expresión Variable que representa un objeto Items .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Type	Opcional	Variant	El tipo de elemento de Outlook para el nuevo elemento. Especifica un MessageClass para crear formularios personalizados. Puede ser una de las siguientes constantes OlItemType : olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem o olTaskItem, o cualquier clase de mensaje válida.

Valor devuelto

Valor Object que representa el nuevo elemento de Outlook.

Comentarios

Si no se especifica, la propiedad Type del elemento de Outlook predeterminado para el tipo de la carpeta o MailItem si la carpeta principal no tiene tipo.

Ejemplo:

En este ejemplo de VBA Obtiene la carpeta Contactos actual y agrega un nuevo objeto ContactItem a ella y establece algunos valores iniciales en los campos basándose en otro contacto. Para ejecutar este ejemplo sin errores, reemplace a 'Dan Wilson' por un nombre de contacto válido que existe en la carpeta Contactos.

Sub AddContact() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItem As Outlook.ContactItem 
 Dim myOtherItem As Outlook.ContactItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
 Set myOtherItem = myFolder.Items("Dan Wilson") 
 Set myItem = myFolder.Items.Add 
 myItem.CompanyName = myOtherItem.CompanyName 
 myItem.BusinessAddress = myOtherItem.BusinessAddress 
 myItem.BusinessTelephoneNumber = myOtherItem.BusinessTelephoneNumber 
 myItem.Display 
End Sub

En el ejemplo siguiente de VBA, se agrega un formulario personalizado a la carpeta Tareas predeterminada.

Sub AddForm() 
 Dim myNamespace As outlook.NameSpace 
 Dim myItems As outlook.Items 
 Dim myFolder As outlook.Folder 
 Dim myItem As outlook.TaskItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = _ 
 myNamespace.GetDefaultFolder(olFolderTasks) 
 Set myItems = myFolder.Items 
 Set myItem = myItems.Add("IPM.Task.myTask") 
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.