Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Gruppen exportieren aus Adressdatenbank

(1/3) > >>

McHunter:
Hallo zusammen,

gibt es irgendeine Möglichkeit aus einer Adressdatenbank (leider sehr groß)
die Einträge einer bestimmten Gruppe zur späteren Verwendung unter Excel zu  exportieren ?
Wir haben einen Notes Server 6.0
und Clients der Version 6.5.1

Wäre echt Dankbar wenn jemand eine Idee hätte.

Steve_O.:
Ist die Datenbank ein names.nsf?
Wohin exportieren, nach Excel?
Was spricht gegen copy & paste?

Gruß  Steffen

WernerMo:
Hallo,


--- Zitat von: Steve_O. am 19.09.07 - 15:35:59 ---... Was spricht gegen copy & paste? ...

--- Ende Zitat ---

evtl. die Anzahl der Datensätze "sehr große Adressdatenbank..."
über die Zwischenablage gehen nur einige Tausend.
(Pro Kopiervorgang)

Gruß Werner

McHunter:
Hallo und Danke für eure schnellen Antworten.

Also zu meinen:
Ja, es ist eine names.nsf !

Es befinden sich etwa 1200 Einträge darin.

Wenn ich mir die Gruppe anzeigen lasse und Copy & Paste versuche dann kopiert er mir nur die Namen als Text.
Ich brauche aber in einer Exceltabelle Die Namen und die dazugehörigen E-Mail Adressen.
(Also ein Export als structured Text - in der Art)

Ich würde sie ja noch per ausgedruckter Gruppenliste einzeln markieren und dann mit Notes kopieren (In der Ansicht aller Einträge) aber hier stolpere ich über die Unart von Notes die Namen in der Gruppe mit Nachname, Vorname anzuzeigen und in der Hauptansicht mit Vorname, Nachname.

Ich kann also nicht in der Liste nach unten gehen sondern müßte jeden Einzelnen Eintrag in der Hauptansicht suchen !

HH:
Ich hatte kürzlich eine ähnliche Aufgabenstellung und das mit folgendem Script gelöst:


--- Zitat ---   Dim search As String
   search = {Form="Person" & ...... ) }
   Dim col As NotesDocumentCollection
   Dim oeNab As NotesDatabase
   Set oeNab = New NotesDatabase( your_servername, "names.nsf" )
   Set col = oeNab.Search( search, Nothing, 0 )
   Dim adrArray() As String
   Dim i As Integer
   Dim persDoc As NotesDocument
   Set persDoc = col.GetFirstDocument
   i = 0
   Do While Not persDoc Is Nothing
      Redim Preserve adrArray(i)
      adrArray(i) = persDoc.InternetAddress(0)
      i = i + 1
      Set persDoc = col.GetNextDocument( persDoc )
      Print i
   Loop
   thisDoc.result = adrArray

--- Ende Zitat ---

thisDoc.result ist ein Richtext Feld in der Maske, aus der das Script gestartet wird und in das der Ergebnis hinein geschrieben wird. Mit etwas Phantasie kann man das Script um Vor- und Nachnamen ergänzen und eine Sortierroutinge vor der Ausgabe einbauen.

Hubert

Navigation

[0] Themen-Index

[#] Nächste Seite