Adressbucg Gruppen + Angaben in Excel Exportieren

[djsven]

HI alle zusammen, sagt mal wie kann ich eine Gruppe komplett mit allen Details, wie Name der User+Firma+Tel+Strasse usw. in eine Excel Datei exportieren??
Möchte dann eine Komplette Gruppe + alle Daten in eine Excel Datei haben.
Geht das ?
Bye

[klaussal]

... Über "Datei" / "exportieren" oder mit einem Tool von Integra oder per Agenten.
klaus
PS: was heisst denn hier "alle Daten" ??

[djsven]

Mit Datei /Export gehts nicht!!Wenn ich eine Gruppe offen habe, möchte ich gerne alle Daten von den Personen, die in er Gruppe sind in eine Excel Datei exportieren!!!
Wie sieht denn der Agent aus==

[koehlerbv]

Ich nehme an, dass es hierfür keine fertigen Tools gibt, man muss also selber Hand anlegen.

Der Agent müsste durch die Members gehen, deren Personendokumente via NotesView.GetDocumentByKey in der Ansicht "($Users)" instantiieren und die gewünschten Werte auslesen.
Diese Angaben werden dann in ein Excel-File geschrieben (Beispiele hierfür findest Du hier im Forum - einfach mal nach Excel suchen, auch die Sandbox bietet Beispiele).

Schwieriger wird es, wenn Gruppen erst rekursiv aufgelöst werden müssen - aber auch das ist kein Hexenwerk.

HTH,
Bernhard

[klaussal]

nochmal: was heisst hier "ALLE DATEN" ??
Ich kann noch nicht hellsehen oder Gedankenm lesen !
klaus

[djsven]

Sorry,
OK vor und Nachname, Firma, Strasse,PLZ, Ort,m Tel, Tel Handy,Email, Web Adresse, Anschrift der Firma und vielleicht noch ein Feld was ich frei wählen kann!!

[klaussal]

OK, dann so, wie Bernhard es beschrieben hat.
Mit LoNo-Bordmitteln keine Chance. Dazu ist Kenntniss von LS unabdingbare Voraussetzung  
klaus

[djsven]

Dann wie B gesagt hat??Hä wodenn??
Auf gehts mit Lotus Scripts!!!!
DANKE

[koehlerbv]

Dann wie B gesagt hat??Hä wodenn??
Auf gehts mit Lotus Scripts!!!!
DANKE

Das steht mal gerade vier Beiträge darüber ...

[djsven]

HI alle zusammen,
sagt mal wie kann ich dieses Script dahin gehend erweitern, das er mit eine Gruppe ausliest und die unteren Werte in Excel reinschreibt??
Das geht leider nur wenn ich direkt auf den Kontakt gehe so wie es hier steht.
Aber ich möchte auf ne Gruppe gehen und dort die Daten auslesen!
Kann mir einer bitte helfen, bin lkeider noch Anfänger was Programmieren angeht!!!
DANKE

Sub Initialize
   
   
'Diese Routine exportiert aus einem Lotus Notes Adressbuch
'in eine Excel - Tabelle , die Felder der Geschäftskunden
'Title,FirstName,LastName,JobTitle,Company ...
' ... OfficeStreetAddress, OfficeZip , OfficeCity und
'OfficeCountry
   Dim Session As New NotesSession
   Dim Doc As NotesDocument
   Dim CurrDB As NotesDatabase
   Dim Collection As NotesDocumentCollection
   Dim Application As Variant
   Dim Book As Variant
   Dim Sheet As Variant
   Dim i As Integer
   
   Set CurrDB = Session.CurrentDatabase
   Set Collection = CurrDB.UnprocessedDocuments
   Set Doc = Collection.GetFirstDocument
   Set Book=Nothing
   Set Sheet = Nothing
   Set Application=Nothing
   
'Öffnet Excel mit dem Tabellennamen ExportAdressen
   
   Set Application = CreateObject("Excel.Application")
   Set Book = Application.Workbooks.Add
   If Application.Workbooks(1).Worksheets.Count=0 Then
      Set sheet = Application.Workbooks(1).Worksheets.Add
   End If
   Set Sheet = Application.Workbooks(1).Worksheets(1)
   Sheet.Name = "Export Adressen" 'Name der Arbeitsmappe
   Book.Application.Visible=True
   
' Schreibt Spaltenköpfe
   
   ARangeValue = Sheet.Range("A1").Activate
   Sheet.Range("A" & 1).Value = "Titel"
   Sheet.Range("B" & 1).Value = "Vorname"
   Sheet.Range("C" & 1).Value = "Name"
   Sheet.Range("D" & 1).Value = "Jobtitel"
   Sheet.Range("E" & 1).Value = "Firma"
   Sheet.Range("F" & 1).Value = "Straße"
   Sheet.Range("G" & 1).Value = "PLZ"
   Sheet.Range("H" & 1).Value = "Ort"
   Sheet.Range("I" & 1).Value = "Land"
   
' Ausgabe der Spalten von den selektierten Dokumenten
   
   For i = 1 To Collection.Count
      
      Sheet.Range("A" & i+1).Value = Doc.Title
      Sheet.Range("B" & i+1).Value = Doc.FirstName
      Sheet.Range("C" & i+1).Value = Doc.LastName
      Sheet.Range("D" & i+1).Value = Doc.JobTitle
      Sheet.Range("E" & i+1).Value = Doc.CompanyName
      Sheet.Range("F" & i+1).Value =Doc.OfficeStreetAddress
      Sheet.Range("G" & i+1).Value = Doc.OfficeZip
      Sheet.Range("H" & i+1).Value = Doc.OfficeCity
      Sheet.Range("I" & i+1).Value = Doc.OfficeCountry
      
      Set Doc = Collection.GetNextDocument(Doc)
      
   Next i
   
End Sub

[Driri]

Vom Ablauf her müßtest Du folgendes vor dem Export machen :

- Gruppendokument holen
- Mitgliederfeld auslesen
- durch die Mitgliederliste schlaufen
- für jedes Mitglied das entsprechende Personendokument ermitteln (Achtung : Fehlerhandling wegen doppelten Namen beachten)
- die Personendokumente in eine DocCollection schießen
- das Script aus deinem Beispiel auf die so erzeugte DocCollection loslassen

[djsven]

uhhhh
Ich kanns doch leider nicht!!!

BITTE HELFT MIR!!!

[Driri]

Sorry, aber fertige Scripte sind nicht Sinn des Forums. Versuch doch einfach mal, das umzusetzen. Wenn Probleme auftreten, gibts ja sofort Hilfe.

[djsven]

Aha!Na dann!
Aber ich kann das DOCH gar nicht!Bin nur einfacher Netzwerkadmin!!!
Und wer kann /möchte mir denn helfen??
Für Leute die das Können ist das ein KLACKS!!!

[eknori]

Für Leute die das Können ist das ein KLACKS!!!

wie willst du das beurteilen können  

Hier sind meine 2 cent zu dem Thema:

Namen aus Gruppen extrahieren

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim col As NotesDocumentCollection
   Dim n As Integer
   Set db = s.CurrentDatabase
   Set col = db.UnprocessedDocuments
   Set doc = col.GetFirstDocument()
   n=0
   While Not(doc Is Nothing)
      Forall members In doc.members
         Dim NameText As New NotesName(doc.Members(n))
         n=n+1         
         Msgbox NameText.Abbreviated
      End Forall
      Set doc = col.GetNextDocument(doc)
   Wend   
End Sub

[djsven]

Vielen Dank erseinmal für die Antwort, aber was mache ich damit??
Einen Agent mit sicherheit nicht anlegen oder?
Habe noch niemals einen Button erstellt!Wie mache ich denn das?
Sag mal wann du schon so was kannst, wie schaffe ich es denn die oben genannten Kriterien mit auszugeben, sprich Name, Firma usw.??

[eknori]

HI alle zusammen, sagt mal wie kann ich eine Gruppe komplett mit allen Details, wie Name der User+Firma+Tel+Strasse usw. in eine Excel Datei exportieren??
Möchte dann eine Komplette Gruppe + alle Daten in eine Excel Datei haben.
Geht das ?
Bye

Frage: Ist das jetzt eine private Spielerei, oder wird das in einem Unternehmen benötigt ?

Bin gerne bereit, das als Freelance zu realisieren; aber hier eine solche Lösung für lau erst zu erstellen; das sehe ich nicht ein.

Mache ich dann demnächst genau so. "Hey, seht her, ich bin ein NOOP, müsste aber mal eben ein Warenwirtschaftssystem in Notes realisieren. Wer so was kann, für den ist das doch ein Klacks!!!"

[djsven]

Es ist für einen Firmen ZWECK!!
Brauche leider einige Informationen von Gruppen.
Partner und Mitarbeiter fragen mich danach!
Haben aber 2000 Kontakte!!!
BITTE!!!
Ich DANKE DIR schon mal riesig im Voraus!!!

[eknori]

wie sind denn die Gruppen generell aufgebaut, also gibt es z.B. Gruppen in Gruppen ?
Gibt es gemischte Gruppen, also externe und interne Mitarbeiter ?

[Don Pasquale]

@DJ Sven

Hallo Sven,
wie Du langsam bemerkt haben dürftest, hast Du Dich in eine Ecke manövriert. Das Problem ist, Du willst eine Lösung haben, aber nichts dafür tun. Das widerspricht dem Geist dieses Boards.
Du kannst weder @Formula noch LotusScript, hast es auch noch nicht einmal probiert.
Du wirst hier massenhaft Hilfe - zur Selbsthilfe - bekommen, wenn die Leute hier den Eindruck haben, dass Du Dich bemühst.

Die Einträge in Deinem Profil sind allesamt noch sehr anonym und die Angabe, dass da 2000 Kontakte auf Dich warten, erscheint wenig glaubwürdig.

Denk nochmal nach und fang von vorne an, dann klappt das auch mit diesem Forum

Ciao
Don Pasquale