Метод Items.Add (Outlook)

Статья
04/07/2023

Создает новый элемент Outlook в коллекции Items для папки.

Синтаксис

expression. Добавлять_Type_

выражение Переменная, представляющая объект Items .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Type	Необязательный	Variant	Тип элемента Outlook для нового элемента. Указывает MessageClass для создания настраиваемых форм. Может быть одной из следующих констант OlItemType : olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem или olTaskItem или любой допустимый класс сообщения.

Возвращаемое значение

Значение Object , представляющее новый элемент Outlook.

Замечания

Если значение не указано, свойство Type элемента Outlook по умолчанию будет указывать тип папки или MailItem , если родительская папка не введена.

Пример

Этот пример VBA получает текущую папку Contacts и добавляет в нее новый объект ContactItem и задает некоторые начальные значения в полях на основе другого контакта. Чтобы запустить этот пример без ошибок, замените "Dan Wilson" допустимым именем контакта, которое существует в папке "Контакты".

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

В этом примере VBA добавляется настраиваемая форма в папку Задач по умолчанию.

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

См. также

Объект Items

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через