Hallo,
da ich keine Verweise setzten kann, habe ich folgenden Code genommen.
Sub notes2()
Dim s As Object
Set s = CreateObject("Lotus.NotesSession")
s.Initialize
Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld As Object
Dim i As Long
Set db = s.GetDatabase("", "Names.nsf")
Set view = db.GetView("People")
Range("a1").Activate
ActiveCell.Value = "Nachname"
ActiveCell.Offset(0, 1).Value = "Vorname"
Range("a2").Activate
Set doc = view.GetFirstDocument
For i = 1 To view.AllEntries.Count
ActiveCell.Value = doc.GetItemValue("Lastname")
ActiveCell.Offset(0, 1).Value = doc.GetItemValue("Firstname")
ActiveCell.Offset(1, 0).Select
Set doc = view.GetNextDocument(doc)
Next i
End Sub
das problem ist das wenn ich den Code ausführe kommt, ein Fehler von Excel "Abnormal Programm termination" und excel schließst sich.
Hallo hab das problem gefunden. Lag an an dem Punkt CreateObject("Lotus.NotesSession") den habe ich in CreateObject("Notes.NotesSession") umbenannt. Nun liest er das adressbuch aus. einProb hab ich noch. Ich möchte nicht denn ganzen Ordner "People" auslesen sondern eine Grupe unter "by Organization"
mit dem Namen "bals" unterordner "sup1"
Hiernochmal der Code. Könnt ihr mir da helfen?
Private Sub CommandButton1_Click()
Dim s As Object
Set s = CreateObject("Notes.NotesSession")
Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld As Object
Dim i As Long
Set db = s.GetDatabase("mail01/Srv/sland", "names.nsf")
Set view = db.GetView("People")
Range("a1").Activate
ActiveCell.Value = "Nachname"
ActiveCell.Offset(0, 1).Value = "Vorname"
Range("a2").Activate
Set doc = view.GetFirstDocument
For i = 1 To view.AllEntries.Count
ActiveCell.Value = doc.GetItemValue("Lastname")
ActiveCell.Offset(0, 1).Value = doc.GetItemValue("Firstname")
ActiveCell.Offset(1, 0).Select
Set doc = view.GetNextDocument(doc)
Next i
End Sub
Kann mir das jemand erklären
Diese Abhandlung beschreibt die verschiedenen Methoden, in Notes auf ein einzelnes Dokument zuzugreifen. Wenn Du nur ein bestimmtes Dokument im "Ordner" (=View oder Ansicht) suchst, dann versuche es mal mit GetDocumentByKey method (http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=/com.ibm.help.domino.designer85.doc/DOC/H_LOCATING_DOCUMENTS_WITHIN_A_VIEW_OR_FOLDER.html)
Set view = db.GetView("[b]<evtl. anzupassen>[/b]")' ich tippe mal auf "groups"
...
Set doc = view.[b]GetDocumentByKey ("bals", TRUE)[/b]
Markus