Накопал такое:
Получаю мэйлы - doc.GetItemValue("InternetAddress")(0)
Может кто-то подсказать какие вообще есть поля в $VIMPeople? В особенности интересует как называется поле в котором хранится должность и место работы
Код |
---|
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? В особенности интересует как называется поле в котором хранится должность и место работы