Checkbox löst Aktion aus

[magic_halli]

Hallo,

ich habe in einer Maske eine Checkbox. Wenn diese angeklickt wird, soll sich ein Fenster öffnen, ähnlich dem "In Ordner verschieben..." (Aktion).
Dann würde ich gern dort einfach einen Ordner wählen können. Der gewählte Ordner wird danach namentlich in einem Textfeld in der gleichen Maske ausgegeben und die OrdnerID(?) wird sich "gemerkt".
Wenn ich dann schlussendlich auf "Speichern und Schließen" drücke, werden verschiedene Aktionen ausgeführt, inkl. die Verarbeitung der OrdnerID...

Mir geht es hierbei jetzt nur um die Darstellung eines solchen Fensters, in dem vorhandene Ordner dargestellt werden und wo ich einen auswählen kann.
Ist sowas überhaupt machbar? Gibts dafür bereits eine vorhandene Aktion bzw. kann man ein vorhandene Aktion einfach dementsprechend abwandeln?


Ich würde ja gern die vorhandene Aktion "In Ordner verschieben..." nehmen, aber hierbei wird auch gleich ein Dokument (Mail) verschoben. Das will ich aber nicht. Ich will eben nur einen vorhandenen Ordner auswählen können und dann dessen Werte auslesen.


Danke und Gruß

Rico.

[dirk_2909]

Den Dialog musst Du dir selber "bauen".
Einfach eine Teilmaske in der beim QueryOpen alle vorhandenen Ordner via LS ausgelesen werden und als Textliste in einem Feld (z.B. "AllFolders" ) gesetzt werden.
Ein anderes Feld als Kombifeld o.ä. festlegen und als Auswahlformel das Feld mit den Ordnernamen verwenden.
Dann kann der Benutzer sein Favoriten wählen und Du kannst die Auswahl auswerten.

[magic_halli]

OK, das klingt ja schonmal gut. Ich versuch mal, ob ich zurecht komme... 

Danke

[magic_halli]

Mir ist da ein einfacherer Weg in den Sinn gekommen...
Ich lege in meiner Maske ein Kombinationsfeld "AllFolders" an. Dieses Kombinationsfeld wird nur angezeigt, wenn eine Checkbox "Mail_move" angeklickt wird. (Das funktioniert bereits)

Dann müsste ich "nur" im Initialize (korrekt?) des KombiFeldes alle Ordner der Maildatenbank des jeweiligen Users auslesen und anzeigen?!
Wenn der User dann einen Ordner anwählt, werden die Ordnerdaten gespeichert (bspw. in Hiddenfields des Profildokuments, welches durch die Maske erstellt wird).

Wäre doch machbar, oder?
Wenn ja, welche Stichworte zum Auslesen von vorhandenen Ordnern einer User-Maildatenbank sind für mich wichtig, damit ich die Hilfe befragen kann?

Gruß

[dirk_2909]

ist soweit ok.
Ich würde es aber nicht im Initialize sondern im QueryOpen machen.

Folgende Stichworte, um Folder herauszufinden.

NotesDatabase.Views

NotesView.IsFolder

[magic_halli]

Ich würde es aber nicht im Initialize sondern im QueryOpen machen.

Es gibt beim Kombinationsfeld kein QueryOpen!
Wenn ich die Ordnersuche ans 'Entering' der Kombibox hänge, erfolgt diese ja erst, wenn ich die Kombibox anklicke?!

 

[TRO]

1. QueryOpen des Dokumentes!

2. in früheren Versionen war NotesView.IsFolder unperformant, das für alle getesteten Ansichten der View-Indes neu aufgebeut wurde. Keine Ahnung, ob das noch in ND8 so ist

3. bitte auch mal @PickList( [FOLDERS]..... in betracht ziehen, das könnet man schön in einen Button packen.

hth

thomas

[magic_halli]

Ich hab jetzt folgendes, um mir die Folder einer MailDB erstmal zu ermitteln:

Code

Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim views As Variant
	
	Set db = session.CurrentDatabase
	views = db.Views
	
	Forall v In views
		If (v.IsFolder) Then
			foldername = v.Name			
		End If
	End Forall

Wie bekomme ich denn die Foldernames in meine Kombibox 'AllFolders' rein?

[dirk_2909]

Du musst foldernames einem Feld zuweisen (Feld verborgen, Mehrfachwerte zulassen , …).
Das Feld (der Name) schreibst Du als Auswahlformel in Deine Kombobox.

[magic_halli]

Du musst foldernames einem Feld zuweisen (Feld verborgen, Mehrfachwerte zulassen , …).
Das Feld (der Name) schreibst Du als Auswahlformel in Deine Kombobox.

...Hab ich gemacht.
Hier nun mein Code, um die Ordner der MailDB auszulesen und ins HiddenField "Foldernames" zu speichern:

Code

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim item As NotesItem
	Dim views As Variant
	
	Set db = session.CurrentDatabase
	Set doc = db.GetProfileDocument("MyProfileDoc", session.UserName)
	views = db.Views
	
	Forall v In views
		If (v.IsFolder) Then
			foldername = v.Name
		End If
	End Forall
	
	Set item = doc.AppendItemValue("Foldernames", foldername)

Es steht aber nur der letzte Ordnername, der durch 'ForAll' ermittelt wird, im HiddenField bzw. in der Kombibox (solten so ca. 8 sein). Irgendwas is hier noch faul?!?

[MadMetzger]

Code

	Forall v In views
		If (v.IsFolder) Then
			[glow=red,2,300]foldername = v.Name[/glow]
		End If
	End Forall

Es steht aber nur der letzte Ordnername, der durch 'ForAll' ermittelt wird, im HiddenField bzw. in der Kombibox (solten so ca. 8 sein). Irgendwas is hier noch faul?!?

Was tut die markierte Zeile? Sie überschreibt jedes mal den Wert in der Variablen "foldername" und da bleibt nunmal am Ende nur der letzte Wert stehen, da er nicht überschrieben wird.

[magic_halli]

Ups, mein Fehler...

Code

	Forall v In views
		If (v.IsFolder) Then
			foldername = v.Name
			Set item = doc.AppendItemValue("Foldernames", foldername)
		End If
	End Forall

Allerdings steht in meiner Kombibox trotzdem nur der letzte 'foldername' drin.

Mir kommt aber grad ein Zweifler... Ich will in ein Feld (lässt Mehrfachwerte zu) Werte speichern! Item (AppendItemValue) ist doch richtig, oder - bin mir grad irgendwie gar nicht sicher?! 

[koehlerbv]

Du solltest Dir in der Hilfe zu AppendItemValue die Verwendung durchlesen ...

Bernhard

[magic_halli]

Mh, ich lag fast richtig... nur statt AppendItemValue sollte es wohl besser ReplaceItemValue heißen, denke ich.

Code

Forall v In views
		If (v.IsFolder) Then
			foldername = v.Name
			Set item = doc.ReplaceItemValue("Foldernames", foldername)
		End If
	End Forall

Ich bekomme aber dennoch nur einen (den zuletzt abgearbeiteten) Ordner in der Kombibox angezeigt!
Irgendwas stimmt noch nicht. Ich vermute, es liegt an dem HiddenField "Foldernames" (Typ Text, Bearbeitbar, Mehrfachwerte), in welches ich die Ordnernamen speichere und welches bei der Kombibox in der Auswahlformel drinsteht (Feldname)?!

[tfrenz]

Wie Bernhard schon geschrieben hat, schaue die die Hilfe von AppendItemValue an.
ReplaceItemValue ersetzt ja immer den Wert, da bleibt natürlich nur der Letzte Wert erhalten.

Thomas

[magic_halli]

Mh... Ich liege eigentlich verkehrt mit dem was ich mache.
Ich will eigentlich Values, mein 'foldername' im 'ForAll', in ein vorhandenens Feld "Foldernames" (Item) speichern und nicht neue Items anlegen und mit Werten füllen, so wie´s AppendItemValue (und ich) macht:

...Creates a new item in a document and sets the item value.

...oder hab ich jetzt nen Blackout?

[TRO]

Nach meiner Erfahrung: verwende NIE, wirklich niemals AppendItemValue !!
Die Items mit gleichem Namen kann man dann nicht wieder auseinanderfitzen (oder in einem Item vereinigen) --> siehe Hilfe zu GetFirstItem


An der Stelle wäre item.AppendToTextList richtig

[tfrenz]

Für doppelte Einträge gibt es den Befehl Unique!!!

Thomas

[magic_halli]

Vielen Dank an alle... ich habe ein Lösung mittels item.AppendToTextList erreicht.
Das mit Unique werde ich noch untersuchen.

Danke und Gruß

[TRO]

Für doppelte Einträge gibt es den Befehl Unique!!!

Thomas

Was hat jetzt Unique damit zu tun, dass es mehrere gleichnamige Items geben kann? Es geht nicht um den Inhalt, sondern darum, dass es schwer ist, diese Mehrfach-Items in einem Item zusammenzuführen. Das ist in LS schlicht unmöglich (mit Evaluate würde es gehen). Mit GetFirstItem kriegt man halt nur das erste zu fassen, ein GetNextItem gibt es nicht.