Создание контакта в outlook

[Lucky13]

Вот код на VB, который выбирает папку:
Dim nms As NameSpace
Dim its As Integer
'Dim MyContItem As ContactItem
Dim Adr As String


'Создание объекта, указывающего на данные в Outlook
Set out = New Outlook.Application

Set nms = out.GetNamespace("MAPI")


'Создание объекта, указывающего на папку "Контакты"
Set MyCont = nms.Folders("Общие папки")
Set MyCont = MyCont.Folders("Все общие папки")
Set MyCont = MyCont.Folders("Журналы")
MyCont.CreateItem(...