Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Работа с адресной книгой Lotus Notes из vba
 
#1
26.10.2018 12:34:11
Всем привет.
Есть ли возможность заполнить например combobox всеми адресами хранищиемся в базе lotus?
 
 
 
#2
26.10.2018 13:09:04
U_M0KRH, если ето БД, и к ней есть подключение через ADO, OLEDB т.п.
Цитата
U_M0KRH написал:
Есть ли возможность заполнить
то да можно
 
 
 
#3
26.10.2018 15:40:44
Есть только почтовый клиент
 
 
 
#4
26.10.2018 15:48:48
ivanok_v2, не совсем так.
Цитата
U_M0KRH написал:
всеми адресами хранищиемся в базе lotus?
в том числе зависит от того что это за база?
ODBC драйвер
А публичная база адресов доступна по LDAP
Также можно через клиента и COM стучаться.
По вопросам из тем форума, личку не читаю.
 
 
 
#5
30.10.2018 16:04:41
Накопал такое:

Код
Dim session As Object
Dim NABdb As Object
Dim vPeople As Object
Dim doc As Object
Dim books As Variant
Dim i As Integer
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize
books = session.AddressBooks
For i = 1 To UBound(books)
Set NABdb = books(i)
If NABdb.IsOpen = False Then
Call NABdb.Open
End If
Set vPeople = NABdb.GetView("($VIMPeople)")
Set doc = vPeople.GetFirstDocument
Do While Not doc Is Nothing
Print doc.GetItemValue("InternetAddress")(0)
Set doc = vPeople.GetNextDocument(doc)
Loop
Next

Получаю мэйлы - doc.GetItemValue("InternetAddress")(0)

Может кто-то подсказать какие вообще есть поля в $VIMPeople? В особенности интересует как называется поле в котором хранится должность и место работы
 
 
 
Страницы: 1
Наверх