Gruppen aus dem Adressbuch exportieren

[juebri]

Hallo,

wir haben in unserem Bereich ein Notes-Adressbuch, in dem knapp 300 Redaktionen erfasst sind. Über Gruppen wurden sog. Presseverteiler erstellt, z.B. "Lokal", "Regional", "Überregional" usw.

Nun fragen zahlreiche Pressestellen an und bitten um Zustellung z.B. des Verteiles "Lokal".

Hat jemand schon mal eine Lösung erstellt, mit der die Gruppen und die dazugehörigen Daten (Telefon, Mail, Ansprechpartner etc) exportiert werden können, so dass man diese in andere Mailclients importieren kann?

CU

[Markus Henke]

Habe ich das richtig verstande:

Du willst eine Gruppe aus dem NAB auswählen. Dann willst Du von jedem Gruppenmitglied Name, Tel etc. exportierren?

So was habe ich noch nicht gesehen, sollte aber nicht allzuschwer sein, sofern Du Script beherschst. Auf notes.net und auch hier im Forum gibt es zahlreiche Beispiele, wie man Werte nach Excel oder in ein anderes Format exportieren kann. Dass muss natürlich noch erweitert werden, damit es Deinen Anforderungen entspricht.

Gruß
Markus

[juebri]

Also, wer einen ersten Lösungsansatz benötigt:

Code

Sub Initialize
   Dim session As New notessession   
   Dim col As notesdocumentcollection
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim doc2 As notesdocument
   Dim view As NotesView
   Set db = session.currentdatabase
   Set view = db.GetView( "($VIMPeople)" )      
   Dim uiws As New notesuiworkspace
   Set col = uiws.picklistcollection(picklist_custom, False, db.server, "testadressen.nsf", "Groups", "Wählen Sie ein Dokument", "Dokumentwahl")
   Set doc = col.getfirstdocument
   arrMitglieder = doc.GetItemValue( "Members" )
   namedergruppe = doc.GetItemValue( "ListName" ) 
   Open "d:\"+namedergruppe(0)+".csv" For Output Access Write As #1
   Print #1, "Vorname;Nachname;E-Mail-Adresse;Mobiltelefon;Straße (geschäftlich);Ort (geschäftlich);Postleitzahl (geschäftlich);Rufnummer (geschäftlich);Fax (geschäftlich);Firma;Position;Abteilung"   
   Forall x In arrMitglieder
      On Error Resume Next      
      Set doc2 = view.GetDocumentByKey( x, True)
      strVorname = doc2.GetItemValue( "FirstName" )
      strNachname= doc2.GetItemValue( "LastName" )
      strEMail = doc2.GetItemValue( "MailAddress" )
      strMobil = doc2.GetItemValue( "CellPhoneNumber" )
      strStrasse = doc2.GetItemValue( "BusinessAddress" )
      strOrt = doc2.GetItemValue( "Location" )
      strPLZ = doc2.GetItemValue( "OfficeZip" )
      strTelefon = doc2.GetItemValue( "OfficePhoneNumber" )
      strTelefax = doc2.GetItemValue( "OfficeFAXPhoneNumber" )
      strFirma = doc2.GetItemValue( "FullName" )
      strPosition = doc2.GetItemValue( "Manager" )
      strAbteilung = doc2.GetItemValue( "Department" )
      Print #1, strVorname(0) +";"+ strNachname(0) +";"+ strEMail(0) +";"+ strMobil(0) +";"+ strStrasse(0) +";"+ strOrt(0) +";"+ strPLZ(0) +";"+ strTelefon(0) +";"+ strTelefax(0) +";"+ strFirma(0) +";"+ strPosition(0) +";"+ strAbteilung(0)
   End Forall
   Close #1
End Sub

Dieser Code (z.B. im Agenten) exportiert die entsprechenden Felder in eine Outlook-Express-konforme .csv-Datei. Aber nur, wenn die Adress-Daten vernünftig "gepflegt" wurden. Bei uns wurden die Felder derart unterschiedlich und fehlerhaft (mit Zeilenumbrüchen in einigen Feldern wie PLZ) eingegeben, dass nur Mist rauskommt. Zudem ist das berechnete und versteckte Feld "Fullname" sehr gewöhnungsbedürftig, da es sich die alten Namen bei Änderungen merkt.