Ordner kann nicht geöffnet werden...

wolmart · 27. November 2007

Hallo Zusammen,

ich habe eine Suche implementiert, die Ihre Ergebnisse in einen Ordner kopiert und anschließend im Vorschaufenster anzeigt. Mein Problem besteht darin, dass ich es nicht schaffe, den Ordner anzuzeigen. Obwohl er im Designer zu sehen ist, wird er nicht angezeigt. Fehlermeldung "ungültiger oder nicht vorhandenes Dokument". Ist der Ordner schon vorhanden wird ab dem zweiten Mal alles korrekt bearbeitet. Bedingung hierbei ist, dass die Datenbank einmal geschlossen und wieder geöffnet wird.

Könnt Ihr mir sagen wo mein Fehler liegt?

Code

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim uidb As NotesUIDatabase
	Dim colDoc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim suchString As String
	Dim gefuellt As String
	Dim i As Integer	
	Dim t As New NotesDateTime ("")
	Dim app As Variant
	Dim view As NotesView

	Set uidb = workspace.CurrentDatabase
	Set db = uidb.Database
	Set uidoc = workspace.CurrentDocument
	Set doc= uidoc.Document
	suchString = ""
	i = 0
	'Wie viele Zeile sind ausgefüllt ?
	gefuellt = doc.getItemvalue("SucheNext_" + Cstr(i))(0)	
	While gefuellt = "AND" Or gefuellt = "OR"
		i = i+1
		gefuellt = doc.getItemvalue("SucheNext_" + Cstr(i))(0)
	Wend
	' Erzeuge Suche
	For j%=0 To i
		suchstring = suchstring + ErzeugeZeile(doc,j%)	
	Next

	'Ordner leeren
	app = "Search" + Replace(Replace(Replace(Cstr(uidoc .FieldGetText("User")), ".", ""),":","")," ","")
	Set view = db.GetView(app)
	If Not view Is Nothing Then
		Call view.AllEntries.RemoveAllFromFolder(app)
	Else
		' Versuch den View frühzeitig anzulegen.
                ' Hat keine Auswirkungen
                Call db.EnableFolder(app)
		Call workspace.ViewRebuild(True)
	End If

	'Suche und Ordner füllen
	Set colDoc = db.Search(suchstring,Nothing,0)
	Call colDoc.PutAllInFolder (app, True)
        'Call workspace.ViewRefresh
	Call workspace.ViewRebuild(True)

	' Ergebnis anzeigen
	If Not colDoc.Count = 0 Then
		Call workspace.SetTargetFrame("NotesPreview")
		Call uidb.OpenView(app, ,False,True)
		Call workspace.ViewRefresh
	Else
		Dim uidoc2 As NotesUIDocument
		Call workspace.SetTargetFrame("NotesPreview")
		Set uidoc2 = workspace.ComposeDocument("","","frmSearchResult")
		Call uidoc2.FieldAppendText("SuchAnfrage",suchstring)
		Call workspace.ViewRefresh	
	End If
End Sub

Alles anzeigen

Danke

Wolfgang Martens

RockWilder · 27. November 2007

Ich hab das mal in code-Tags verpackt, sieht dann übersichtlicher aus.
Dein Problem an der Sache ist, dass -wenn der Ordner nicht vorhanden ist und angelegt wird- die Outline sich nicht refresht. Das passiert nur beim erneuten Öffnen der DB. Ich unterstelle, du meinst die Mail-DB, bzw. eine, die mit Outline arbeitet, die nur den generischen Entry "Folders" hat?
Du könntest versuchen, ob ein

Code

Call notesUIWorkspace.OutlineReload( outlinename$, databasefilename$ )

Abhilfe schafft

wolmart · 27. November 2007

Hallo Zusammen,

Danke für das schön machen und für das Helfen. Mein Problem sieht grade so aus, dass der o.g. Befehl erst ab Notes 8 zur Verfügung steht und ich aber unter Notes 6.5 entwickeln muss

Ich habe also jetzt versucht mir die Outline zu holen, zu speichern und den Workspace anzuweisen, das Fenster neu zu laden. Klappt nicht. Ich habe dann einen OutlineEntry erzeugt der den gleichen Namen wie der Folder hat. Auch das hilft nicht.

Code

app = "Search" + Replace(Replace(Replace(Cstr(uidoc .FieldGetText("User")), ".", ""),":","")," ","")
	Set view = db.GetView(app)
	If Not view Is Nothing Then
		Call view.AllEntries.RemoveAllFromFolder(app)
	Else
		Call db.EnableFolder(app)
		Dim otl As NotesOutline
		Set otl = db.GetOutline("otlDefault")
		Call otl.Save
		Call workspace.ReloadWindow
	End If

Alles anzeigen

Wie bekomme ich die outline neu geladen, so dass das Skript funktioniert. Das primäre Problem scheint darin zu liegen, dass wie oben geschrieben, der Ordner nicht in der outline erkannt wird. Als Entry kann man den auch nicht unterschieben....

Hat jemand eine Idee ?

Danke.

Wolfgang

RockWilder · 27. November 2007

Ach verdammt, schon wieder die Version überlesen. Sorry!

Ja, dann fiele mir eigentlich nur noch ein, dass du übers Template sicherstellst, dass der Ordner immer da ist. Wenn dann allerdings ein User dahergeht und ihn eigenmächtig löscht, stehst du vor dem selben Problem.

Aber dass EnableFolder, bzw. CreateOnFail beim PutInFolder nicht clever genug ist, diese Problematik zu umgehen, das ist schon eingermaßen unschön...

wolmart · 27. November 2007

Hallo Zusammen,

ich habe es mit einem nicht ganz so schönen Workaround hinbekommen.

Der Ordner, der die Ergebnisse speichert, ist eindeutig ("Ergebnis") und public, private on first use.
Falls es den Ordner nicht gibt, also bei der ersten Benutzung, wird der Benutzer aufgefordert auf diesen Ordner zu klicken und ihn damit anzulegen. Danach funktioniert alles reibungslos, bis der Ordner wieder gelöscht wird. Da ich ihn aber nicht lösche,sondern nur leere...

Nicht schön, aber wenn es die notwendigen Befehle erst ab Version 8 gibt

Ordner kann nicht geöffnet werden...

Teilen

Benutzer online in diesem Thema