VPF::как работать с адресной книгой программно

iogun

Дата 31.5.2007, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.2.2007

Репутация: нет
Всего: нет

подскажите возможно ли с помощью VBScript или JavaScript автоматически добавить изменить или удалить запись адресной книги Outlook Express или MS Outlook. В сети есть сервер LDAP, хотелось бы синхронизировать адр. книги клиентов с ним.
Поиск в каталоге LDAP, не подходит т.к. хотелось бы синхронизировать адр. книгу клиента с каталогом LDAP, хоятбы раз в неделю. Для пользователей слишком сложно производить поиск контактов где нибудь кроме адр. книги.

mihanik

Дата 31.5.2007, 12:08 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Да, возможно.

Вот небольшой пример работы с контактами (из реального проекта)
Работал с MS Outlook

Код


'********************************************************************
'*
'* Процедура  ReadGlobalContact()
'* Описание : Возвращает объект типа MyContact, содержащий все свойства
'*            контакта из адресной книги Outlook
'* Вход     : Number - Номер контакта в адресной книге
'* Выход    : Объект, типа MyContact
'*
'********************************************************************
Sub ReadGlobalContact (ByVal Number)
Dim I, K
Dim mapi, AllContacts, Contact, Prop
Dim N, V

On Error Resume Next

' Создадим объект для хранения данных контакта
     Set  GlobalContact = Nothing

' Определим количество контактов в адресной книге
      K = GetContactsCount ()
      If  Number < 1 Or Number > K Then Exit Sub

' Подключаюсь к пространству имён
      Set mapi = OutlookApp.GetNameSpace("MAPI")

' Получаю коллекцию контактов...
      Set AllContacts = mapi.GetDefaultFolder( olFolderContacts ).Items

' Подключаюсь к контакту с нужными номером
      Set Contact = AllContacts.Item( Number )

' Начинаю получать значения свойств контакта
      Set  GlobalContact = New MyContact
      Set Prop = Contact.ItemProperties

      For I = 1 To GlobalContact.Count
          N = GlobalContact.GetNameProperty(I)
          V = Replace( Prop.Item( N ).Value  , VbCrLf, "{ENTER}" )
          GlobalContact.SetProperty N , V
      Next

' Если произошла ошибка, то установим GlobalContact = Nothing
      If Err.Number Then
         Wscript.Echo "Error # " & CStr(Err.Number) & " " & Err.Description
         Err.Clear
         Set GlobalContact = Nothing
         Set MyFile        = NoThing
         Set fso           = NoThing
         Exit Sub
      End If

      Set Prop = Nothing
      Set Contact = Nothing
      Set AllContacts = Nothing
      Set mapi = Nothing
End Sub

Зайди в MS Outlook и почитай справку...
Всё брал только оттуда..

Это сообщение отредактировал(а) mihanik - 31.5.2007, 12:08

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »