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

[maximus]

PHP код:

   Dim ou As New Outlook.Application
   Dim contact As ContactItem
   Dim folder As MAPIFolder
      
   Set folder = ou.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
   If Not (folder Is Nothing) Then
      ' найдите нужную папку: ищется контакты\important
      Set folder = folder.Folders.Item("important")
      
      If Not (folder Is Nothing) Then
         Set contact = folder.Items.Add()
         
         If Not (contact Is Nothing) Then
            contact.LastName = "Pupkin"
            contact.FirstName = "Vasya"
            contact.Save
         End If
      End If
   End If 


Аутглюк не Аксапта, но и там не всегда разработчикам удается угадать какое имя надо дать методу, чтобы было интуитивно понятно. Согласен, folder.Items.Add() - интуитивно не понятно, мало того, еще сбивает с толку. Я бы предположил, что создается еще одна подпапка..

Однако, в таких случаях поиск рулит с неимоверной силой