Gruppe anlegen per LS

[Matze-muc]

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

[Glombi]

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

[Matze-muc]

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

Danke nochmal....
Mathias

[LN4ever]

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