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

[andkud]

Стандартная синхронизация с Outlook создаёт контакты в общей папке контактов.

COM item;
COM outlook;


outlook = new COM("Outlook.Application");
item = outlook.createItem(#olContactItem);

потом
item.FirstName("Вася");
item.save();

Это как я понимаю это создание контакта в корневой папке контактов, но наверное как-то можно задать нужную папку контактов.

Не подскажите?

[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(...

[andkud]

Цитата:

'Создание объекта, указывающего на данные в 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(...

В Axapta это выглядит немного подругому:


contactFolder = outlookNameSpace.GetDefaultFolder(#olFolderContacts);
contactFolders = contactFolder.Folders();
contactFolder = contactFolders.Item("Личные контакты");
но это ладно...
а вот когда хочешь создать элемент

contactFolder.createItem(2); // 2 - это означает, что элемент это контакт

пишет что COM объект не имеет метода createItem...

должен наверное быть другой метод или способ...

[andkud]

Цитата:

'Создание объекта, указывающего на данные в 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(...

В Axapta это выглядит немного подругому:


contactFolder = outlookNameSpace.GetDefaultFolder(#olFolderContacts);
contactFolders = contactFolder.Folders();
contactFolder = contactFolders.Item("Личные контакты");
но это ладно...
а вот когда хочешь создать элемент

contactFolder.createItem(2); // 2 - это означает, что элемент это контакт

пишет что COM объект не имеет метода createItem...

должен наверное быть другой метод или способ...

[andkud]

Всё я уже разобрался...

как записывать сразу в нужную папку я так и не нашёл...
но можно после сохранения контакта написать:

Item.Move("Нужная папка");

И он окажется там где нужно

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

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