Picklist mit Orndern

[andrew22]

Eine Picklist in LS mit Ordnern ?

plus nen ankreuzfeld wo ich Ordner auswählen kann ?!

thx 

[Semeaphoros]

Wie bitte? Keine Ahnung, was Du meinst.

[diali]

Ordner in Notes oder vom Betriebssystem?

[andrew22]

Sorry das ist das wetter das macht echt träge

ich meine die ordner die man in Ansicht erstellen kann und wo man Dokumente einfügen kann .

[diali]

dann bau Dir eine Dialogbox, mit Script kannst Du alle Views einer DB durchgehen und mit isFolder prüfen ob es eine Ansicht ist oder ein Ordner.
Das Ergebnis schreibst Du in ein Feld, aus welchem sich in der Dialogbox Dein Auswahlfeld berechnet.

[ctillmanns]

Moin
Oder mit Prompt. Ist vielleicht noch besser, weil man da keine Maske bauen muss.
Man könnte ja auch ..... nee, $FormulaClass ist nicht gut.

Könnte man hier auch evaluate gebrauchen?

[Semeaphoros]

evaluate geht nicht, weil keine UI-Funktionen unterstützt sind.

[ctillmanns]

Dachte ich es mir doch.

[andrew22]

das sollte alles in nem agent passieren

also agent wird gestartet und dann öffnet sich ne dialogbox oder picklist und man kann Ordner auswählen.

hat da jemand net nen Bsp. ?!

 

[ctillmanns]

Waurm eigentlich ein Agent?
Mit Hilfe der Hilfe
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim views As Variant
  Dim View_Namen as Variant
  Set db = session.CurrentDatabase
  views = db.Views
  Forall v In views
   <Hier Dein Code um die View_Namen abzufüllen> 

  End Forall
   <Hier Dein Code um den Prompt anzuzeigen>
End Sub
Damit sollte es eigentlich leicht sein.
Und tschüss
Tilsche

[diali]

wenn Du jetzt noch nach dem Forall ein
if v.IsFolder Then
  <hier Dein Code>
End If

einfügst, hast Du genau was ich meinte.

Und dann kein Prompt sondern eine Dialogbox, sonst klapt es nicht mit den Kreuzen.

[andrew22]

jupp genauso hab ichs gemacht

thx