На примере Microsoft Outlook 2007 рассмотрим создание контакта двумя способами - стандартными средствами Outlook и программно, при помощи макроса, написанного на Visual Basic for Application.

Создание контакта в Microsoft Outlook

Для того чтобы в Outlook добавить новый контакт стандартными средствами приложения, необходимо в меню "Файл" раскрыть пункт меню "Создать" и выбрать "Контакт" (сочетание горячих клавиш Ctrl+Shift+C). Также можно раскрыть меню кнопки "Создать" на стандартной панели инструментов после чего выбрать пункт "Контакт".

kak-sozdat-kontakt-v-outlook-2007

Появляется окно нового контакта, в котором можно заполнить пустые поля контактной информацией, добавить изображение и так далее, после чего нажать кнопку "Сохранить и закрыть".

создание нового контакта в Outlook 2007

Создание контактов в Microsoft Outlook можно автоматизировать при помощи встроенного в приложение редактора Visual Basic for Application (VBA).

Макрос Outlook для создания контакта

Ниже приведен программный код макроса VBA для Outlook, создающий новый контакт с заданными именем, отчеством, фамилией и адресом электронной почты. Созданные в Outlook контакты можно просмотреть, отредактировать контактную информацию, а при необходимости удалить.

Sub Sozdanie_kontakta()
    Dim myOutlook As Outlook.Application
    Dim myItems As ContactItem
    Set myOutlook = CreateObject("Outlook.Application")
    Set myItems = myOutlook.CreateItem(olContactItem)
        With myItems
            .FirstName = "Ivan"
            .MiddleName = "Ivanovich"
            .LastName = "Ivanov"
            .Email1Address = "adres elektronnoj pochty";
            .Save
        End With
End Sub   

Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок knopka_view_source в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).