Ok gut, ich habe das ganze jetzt mit einem Folder implementiert.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim thisDb As NotesDatabase
Set thisDb = session.CurrentDatabase
Dim dialogdoc As NotesDocument
Dim flag As Boolean
Dim uiWorkspace As New NotesUIWorkspace
Dim docCol As NotesDocumentCollection
Dim doc As NotesDocument
Dim startDate As NotesDateTime
Dim endDate As NotesDateTime
Dim created As NotesDateTime
Set dialogdoc = New NotesDocument(thisDb)
flag = uiWorkspace.DialogBox("DateRange",True,True,False,False,False,False, "DateRange",dialogdoc)
If flag Then
Set docCol = thisDb.AllDocuments
Set doc = docCol.GetFirstDocument
Set startDate = New NotesDateTime(dialogdoc.StartDate(0))
Set endDate = New NotesDateTime(dialogdoc.EndDate(0))
While Not doc Is Nothing
Set created = New NotesDateTime(doc.Created)
If (doc.form(0) = "Alert") And (created.TimeDifference(endDate) < 0) And (created.TimeDifference(startDate) > 0) Then
doc.PutInFolder(dialogdoc.FolderTX(0))
End If
Set doc = doccol.GetNextDocument(doc)
Wend
Call uiWorkspace.ReloadWindow( )
End If
End Sub
Alles anzeigen
der Nutzer waehlt ueber ein Menu den Zeitraum sowie den Folder und schon geht's los.
Nun waere es natuerlich absolut klasse, wenn der Nutzer sich seinen Folder auch noch selbst anlegen koennte.
Das geht ja ziemlich einfach mit @Command([CreateFolder]). Aber wie schaffe ich es, dass die erzeugten Ordner auch in der Outline der Applikation angezeigt werden (wie in der Notes Mail Datenbank)?
Viele Gruesse