Gibt es @PickList([FOLDERS]) in LotusScript?

[alesssandro]

Hi Leute.

In der Formelsprache gibt es die Funktion @PickList([FOLDERS]). Damit kann ich in einem Dialogfenster einen Ordner auswählen - wie in der Mail-DB bei "Senden und ablegen".

Ich hab mich durch die Designer-6-Hilfe geackert und habe nicht gefunden, wie man etwas entsprechendes in LotusScript machen könnte. Die LS Entsprechung ist doch Pickliststrings() - doch hier kann man keinen Folder-Parameter mitgeben?!

Kennt jemand eine Lösung dafür?

Danke, alex

[eknori]

Dim ws As New NotesUIWorkspace
Call ws.folder(, False)

[koehlerbv]

Das ist aber etwas anderes als das angefragte - hiermit wird der Move-to-folder-Dialog angezeigt, aber kein Foldername zurück gegeben.
Vielleicht habe ich etwas naheliegendes übersehen (oder ich programmiere und optimiere zu gerne  ), aber bisher habe ich hierfür immer eine eigens programmierte Routine verwendet, die mir den gewählten Foldername zurück gegeben hat.

Bernhard

[eknori]

hmm, Bernhard hat Recht; irgendwie funktioniert der Denkapparat heute nicht wie gewohnt ... 

[koehlerbv]

Was aber nicht ausschliesst, dass Du doch die richtige Antwort geliefert hast. So ganz geht das ja aus dem Ursprungsposting nicht hervor.

Bernhard

[alesssandro]

Mit ws.folder(, false) geht es schon in die richtige Richtung. Aber, wie Bernhard angemerkt hat, geht es mir darum, den Namen des ausgewählten Ordners zu verarbeiten.

Hab es so probiert:

Code

Dim uiws As New NotesUIWorkspace
Dim foldername As Variant
foldername = uiws.Folder( , False)
Messagebox foldername, ,"Test"

Aber da kommt nix - Designerhilfe sagt ja auch, dass der Rückgabewert undefinded ist (warum auch immer?!?)

Ich brauche ein Dialogfenster im WS, wo der User einen Ordner auswählen kann und der dann in einem LS Agenten weiterverarbeitet wird. Geht das dann überhaupt irgendwie?

Danke, alex

[koehlerbv]

Da ist Selberschnitzen angesagt. NotesDatabase.Views (und NotesView.IsFolder) ist eine Variante (und R5-kompatibel), schneller, aber nur für R6 tauglich, ist die NotesNoteCollection.

HTH,
Bernhard

[Thomator]

Hi @All,

kann man die Formel @Picklist nicht evaluieren??

Thomas

[Semeaphoros]

Nope, das ist einer von denen, die nicht im Evaluate gehen

[Thomator]

Ach so...

[alesssandro]

Was haltet ihr von der Idee:

Ich mache eine Formel-Aktion in der ich zuerst mit @Picklist einen Ordner auswählen lasse. Diesen Wert schreibe ich dann in das Profil-Dokument der Mail-DB in ein eigenes Feld. Dann rufe ich in der Aktion einen LS-Agenten auf, der dieses Feld wieder ausließt.

Müsste doch eigentlich gut gehen, oder?
alex

[Thomator]

Hi alex,

ich sag mal, das klingt nicht schlecht. Das sollte funzen.

Thomas

[Flachmann]

(ich weiß, das ist ein uraltes Thema, aber ich hatte gerade auch dieses Problem, darum hier eine Antwort)

[FOLDERS] gibt es für LotusScript, nur Doku und Konstantendeklaration schweigen sich darüber aus. Ich habe in einer "generellen Utilities"-LotusScript-Library diese Zeile:

Code

Const PICKLIST_FOLDERS =  4  ' missing constant for NotesUIWorkspace.PickListStrings()

für

Code

stringArray = notesUIWorkspace.PickListStrings( type% [, multipleSelection ], server$, databaseFileName$, title$)

Allerdings habe ich nie den Bedarf für die weiteren Funktionen, wie [PRIVATE], [SHARED] und [NODESKTOP], gehabt. Das ist evtl. ein weiterer optionaler Parameter.