Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Matze-muc am 04.10.06 - 15:17:51

Titel: Gruppe anlegen per LS
Beitrag von: Matze-muc am 04.10.06 - 15:17:51

Hallo zusammen,

klingt zwar jetzt bissl komisch, aber der folgende Code sollte doch eine Gruppe (zumindest ein Dokument) anlegen, oder irre ich mich ?

Sub Initialize
   ' --- DEKLARATION -----------------------------
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim view As NotesView
   ' --- INITIALISIERUNG -----------------------------
   Set db = session.CurrentDatabase
   Set doc = db.CreateDocument

   doc.Form = "Group"
   doc.ListName = "Testgruppe"
   doc.ListDescription = "Beschreibung"
   Call doc.Save( True, True )
End Sub

Es wird kein Fehler vom Debuger o.ä. angezeigt.
Wenn das nicht funtkioniert, was könnte es sein ?
Könnt ihr da weiterhelfen ?

Lg Mathias

Titel: Re: Gruppe anlegen per LS
Beitrag von: Glombi am 04.10.06 - 15:21:49

Sieht gut aus, nur wird das Dokument so nicht in der Ansicht nach Gruppen angezeigt, denn es fehlt ein

doc.Type = "Group"


Tip: Sieh Dir mal die Selektionsformel für die Ansicht an.

Andreas

Titel: Re: Gruppe anlegen per LS
Beitrag von: Matze-muc am 04.10.06 - 15:50:44

Das war der "Codeschnipsel" der noch fefehlt hat.
Jetzt klappt es wunderbar.

Danke nochmal....
Mathias

Titel: Re: Gruppe anlegen per LS
Beitrag von: LN4ever am 04.10.06 - 21:47:16

Richtig Sinn macht eine Gruppe aber erst, wenn in MEMBERS auch etwas drinsteht. Und die Felder DOCUMENTACCESS und LOCALADMIN sind bei einem öffentlichen Adressbuch bestimt auch sinnvoll bis hilfreich.

Mit radikal verknappten Zweizeilern schaffst du dir nur wenig Freu(n)de.

Gruß

Norbert