Items.Add Method

  • Article
Outlook Developer Reference

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

Syntax

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.

Remarks

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.

Example

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.<strong>Add</strong>
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.

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 = _
    myNamespace.GetDefaultFolder(olFolderTasks)
Set myItems = myFolder.Items
Set myItem = myItems.Add("IPM.Task.myTask")



End Sub

See Also