Метод Items.Add (Outlook)
Создает новый элемент 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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.