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() - интуитивно не понятно, мало того, еще сбивает с толку. Я бы предположил, что создается еще одна подпапка..
Однако, в таких случаях поиск рулит с неимоверной силой