Hallo,
anbei ein kleines Excelmakro, das Dir aus Deinen Adressbüchern die Namen holt und in Excel überträgt. Da sollte eigentlich alles drin sein, was Du brauchst.
Frag mich nicht, wo ich das Makro herhabe. Ich habe es irgendwann mal irgendwo im Internet gefunden und gerade getestet. Generell läuft es. Dinge wie Fehlerhandling, ... musst Du Dir selbst einbauen.
Sub lotusnab()
Dim session
Set session = CreateObject("Lotus.NotesSession")
'Dim db As NOTESDATABASE
Dim v As Variant 'NOTESVIEW
Dim vn As Variant 'NotesViewNavigator
Dim e As Variant ' NotesViewEntry
Dim doc As Variant ' NOTESDOCUMENT
Dim strFullname As String
Dim strForm As String
Dim itemFullname
Dim itemForm
Dim books As Variant
Call session.Initialize
books = session.AddressBooks
For Each Db In books ' Iterate through each address book.
Call Db.Open
If Db.ISOPEN Then
'Set db = s.GETDATABASE("", "OverviewExamples.nsf")
Set v = Db.GETVIEW("($PeopleGroupsFlat)")
Set vn = v.CreateViewNav()
Set e = vn.GETFIRSTDOCUMENT()
While Not (e Is Nothing)
Set doc = e.DOCUMENT
Set itemFullname = doc.GETFIRSTITEM("Fullname")
If (itemFullname Is Nothing) Then
Else
Set itemForm = doc.GETFIRSTITEM("Form")
If (itemForm Is Nothing) Then
Else
strForm = itemForm.Text
If strForm = "Person" Or strForm = "Group" Then
strFullname = itemFullname.Text
i = i + 1
Cells(i, 1).Value = strFullname
End If
End If
End If
Set e = vn.GETNEXTDOCUMENT(e)
Wend
End If
Next
End Sub
Viele Grüße
Andreas