Du wirst das am besten mit folgendem Beispiel aus der Designer Help lösen können, wobei die Trefferdocs in einen Ordner geschoben werden, da eine Ansicht im Notes eine etwas starre Angelegenheit ist, weil man das Select Statement nicht dynamisieren kann.
verwendete Klassen Notesdatetime und Notesdocumentcollection:
Sub Initialize
Dim db As New NotesDatabase("","reminder.nsf")
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim dateTime As New NotesDateTime("12/01/94")
Dim nextDateTime As NotesDateTime
searchFormula$ = "Form = ""Project"" _
& ReminderDate = @Today"
Set collection = db.Search(searchFormula$,dateTime,0)
' Create a date that's one week from today.
' That's when the project participants
' get their next reminder.
Set nextDateTime = New NotesDateTime("Today")
Call nextDateTime.AdjustDay(7)
' For each document with reminder date today,
' send document to project participants
' Then update the ReminderDate field
' with a date one week from today.
For i = 1 To collection.Count
Set doc = collection.GetNthDocument(i)
Call doc.Send( True )
Call doc.ReplaceItemValue("ReminderDate", _
nextDateTime.LSLocalTime )
Call doc.Save( True, False )
Next
End Sub
Den letzten Part ab Set nextdate... rausnehmen und ersetzen durch:
Call collection.PutAllInFolder( "Persönliche_OrdnerABC_des_USers" )
AChtung: ist der persönliche Ordner nicht vorhanden, läuft das Script in einen Fehler. Das kann man verhindern, indem man den pers. Ordner vorher anlegt. Suche bitte dazu einen Beitrag über Forumsuche raus, den ATA geschrieben hat (Stichwort evtl: Ordner, persönlich...)
Thema: Daten einer Ansicht mittels InputBox selektieren (Gelesen 3469 mal)