Items.Add Method (Outlook)

Published: July 16, 2012

Creates a new Outlook item in the Items collection for the folder.

expression .AddType

expression A variable that represents an Items object.

Parameters

Name

Required/Optional

Data Type

Description

Type

Optional

Variant

The Outlook item type for the new item. Specifies a MessageClass to create custom forms. Can be one of the following OlItemType constants: olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem, or olTaskItem,, or any valid message class.

Return Value

An Object value that represents the new Outlook item.

If not specified, the Type property of the Outlook item defaults to the type of the folder or to MailItem if the parent folder is not typed.

This VBA example gets the current Contacts folder and adds a new ContactItem object to it and sets some initial values in the fields based on another contact. To run this example without any error, replace 'Dan Wilson' with a valid contact name that exists in your Contacts folder.

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

This VBA example adds a custom form to the default Tasks folder.

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 

Community Additions

ADD
Show:
© 2014 Microsoft