Как добавить новый контакт в папку Outlook

Это производится приблизительно следующим образом:

Листинг 1.

Dim myNewContact As ContactItem

' создание объекта "Контакт"  

Set myNewContact = Application.CreateItem(olContactItem)  

' далее заполняются нужные поля формы  

myNewContact.FirstName = "Василий"  

myNewContact.LastName = "Васильев"  

myNewContact.Email1Address = "vasya@mail.ru"  

myNewContact.Close olSave    ' сохранить

Можно также выдать диалоговое окно «Контакты» для заполнения пользователем:

Листинг 2.

Однако данная конструкция записывает новый контакт в стандартную папку «Контакты». Если вам нужно работать с какой-то индивидуальной папкой, вы должны написать такой код (здесь мы вдобавок создаем новую папку):

Листинг 3.

Dim myNewContact As ContactItem 

Dim myNewFolder As MAPIFolder  

' Создание папки типа "Контакты"  

Set myNewFolder = Application.GetNamespace("MAPI"). _  

     GetDefaultFolder(olFolderContacts).Folders.Add("Личная")  

' создание объекта "Контакт" для данной папки  

Set myNewContact = myNewFolder.Items.Add(olContactItem)  

myNewContact.FirstName = "Александр"  

...