Ordner auflisten

[pcinhaber]

Hallo atNotes-Team und ein frohes neues Jahr,

schreibe jetzt schon etwas länger an einem Löschagenten.
Dieser löscht Dokumente in einem vom Benutzer festgelegten Zeitraum.
Der Agent wird im Maileingang unter "Werkzeuge" aufgerufen und gestartet.
Die grafische Oberfläche besteht aus einer Teilmaske. Neben dem Maileingang
sind auch noch zahlreiche Ordner vorhanden.

Jetzt tritt folgende Schwierigkeit auf:

In dem Fenster, das sich beim Starten des Agenten öffnet, soll eine Ordnerwahl
getroffen werden. Der Benutzer wählt also den Ordner in dem gelöscht werden
soll aus und in diesem werden dann die Dokumente im angegebenen Zeitraum gelöscht.

Wie erstelle ich solch eine Ordnerauswahl? Wie kann ich angeben in welchem
Ordner gelöscht werden soll?

Der Agent ist in LotusScript geschrieben.

Danke im voraus

MfG

[Axel]

Auch ich wünsche dir ein gutes neues Jahr. Ich habe in grauer Vorzeit mal sowas ähnliches in einer Datenbank gemacht.

Code

Dim session As New NotesSession
Dim db As NotesDatabase
Dim viewlist() As String
Dim count As Integer
	
Set db = session.CurrentDatabase
	
count = 0
	
Forall view In db.Views
  If view.Name <> "Meine Dokumente" And view.Name <> "Recherche" And view.Name <> "Zuordnung" Then
    If Left$(view.Name,1) <> "(" Then
      If view.IsFolder Then
         Redim Preserve viewlist(count)
         viewlist(count) = view.Name
         count = count + 1
      End If  'If view.IsFolder Then
    End If  'If Left$(view.Name,1) <> "(" Then
  End If  'If view.Name <> "Meine Dokumente" Then
End Forall  'Forall view In db.Views
...

Den inhalt des Arrays viewlist packst du dann in ein Listenfeld. Dort kann der Anwender dann den entsprechenden Ordner auswählen. Ist mit Sicherheit noch verbesserungsfähig aber es erfüllt in dieser Datenbank seinen Zweck.

Noch eine Anmerkung: Dir ist aber klar, dass wenn in einem Ordner ein Dokument gelöscht wird, es aus der DB entfernt wird, auch wenn es noch in anderen Ordner enthalten war.

Axel

PS: Du hast doch bestimmt auch einen realen Vornamen. Bitte unterschreibe deine Posts mit deinem Vornamen. Dadurch kann man dich persönlich ansprechen und es steigert bei vielen die Bereitschaft zu helfen. Danke.

[LN4ever]

Hallo,

in der Mailschablone gibt es eine Ansicht ($FOLDERALLINFO). Wenn du dir diese Ansicht OHNE IRGENDWELCHE ÄNDERUNGEN in deine DB kopierst, dann kannst du eine PICKLISTCOLLECTION erstellen. Das ist deutlich performanter als die vorige Lösung.

Der Hinweis OHNE IRGENDWELCHE ÄNDERUNGEN erfolgt deshalb, weil die $FORMULACLASS dort benutzt wird, um Gestaltungselemente wie Dokumente anzuzeigen - und mit jeder Designänderung deinerseits geht genau diese Eigenschaft wieder verloren und du mußt sie per kleinem Script wieder setzen.

Gruß

Norbert

[koehlerbv]

Warum (in Version 7) so kompliziert?
NotesUIWokspace.PickListStrings (4, ...)

tut das auch. Und da die gleiche Funktion wie in der @Function verwendet wird, kann man noch nicht mal unbedingt von "undokumentiert" sprechen.

Bernhard

[LN4ever]

Lieber Bernhard,

wie schön, daß ich als 6er-Programmierer mit deinen Tipps und Korrekturen so die Feinheiten und Neuerungen von Notes 7 kennenlerne. Danke.

Gruß

Norbert

[Axel]

... in der Mailschablone gibt es eine Ansicht ($FOLDERALLINFO).

Warum (in Version 7) so kompliziert?
NotesUIWokspace.PickListStrings (4, ...)

tut das auch.

Ich kannte beide Versionen nicht. Man lernt eben nie aus. 

Axel

[koehlerbv]

Siehe hierzu auch dieses Posting von August 2008 - die Sache mit dem Parameter 4 hat auch einen Haken, der nicht verschwiegen werden soll ...

Bernhard