par philg » 22 Jan 2004 à 11:21
Bonjour,tu peux utiliser la methode TimeDifference de la classe notesDateTimevoila un exemple de l'aide notes qui permet de selectionner les documents modifié dans les 7 jours passés.Il suffit de l'adapter à ton besoin Example: TimeDifference method This script checks to see if a document has been modified within the last seven days. If it hasn't, it mails a reminder memo to the document's authors.Dim session As New NotesSessionDim db As NotesDatabaseDim doc As NotesDocumentDim newDoc As NotesDocumentDim weekDateTime As NotesDateTimeDim modifiedDateTime As NotesDateTimeSet db = session.CurrentDatabase'...set value of doc...Set weekDateTime = New NotesDateTime( "Today" )Set modifiedDateTime = New NotesDateTime( "" )Call weekDateTime.AdjustDay( -7 ) ' set to one week agomodifiedDateTime.LSLocalTime = doc.LastModifiedIf weekDateTime.TimeDifference( modifiedDateTime ) > 0 Then Set newDoc = New NotesDocument( db ) newDoc.Form = "Memo" newDoc.Subject = _ "Reminder: please update your project plan" Call newDoc.Send( False, doc.Authors )End If