Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All

Items.Add Method

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



expression   A variable that represents an Items object.


NameRequired/OptionalData TypeDescription
TypeOptionalVariantThe 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.

Visual Basic for Applications
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
End Sub

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

Visual Basic for Applications
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 = _
    Set myItems = myFolder.Items
    Set myItem = myItems.Add("IPM.Task.myTask")
End Sub

Community Additions

© 2015 Microsoft