notes ist so eigentlich nicht zu erkennen, das war ein wunsch unsere g-leitung,
Jaja, Die Leutchen am G-Punkt neigen manchmal dazu ihre eigene Technikangst auf ihre Untergebenen zu projezieren :-)
Hier ein kleiner Auszug aus der Notehilfe:
This agent script runs on all unread documents, and its purpose is to put unread documents into a folder.
If the agent does not contain a search, UnprocessedDocuments returns all unread documents in the database each time the agent runs, regardless of whether the agent has already run on some of the unread documents.
If the agent does contain searches, UnprocessedDocuments returns all unread documents in the database that meet the search criteria, regardless of whether the agent has already run on some of the unread documents.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.PutInFolder _
( "Stop dreaming! Read these documents!",True )
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
Erweitere es noch um folgende Zeile
Dim dbMail As New NotesDatabase( "", "" )
Call dbMail.OpenMail
und tausche folgende Zeile aus.
Set collection = db.UnprocessedDocuments
geben
Set collection = dbmail.UnprocessedDocuments
dann noch ein bisschen angepasst (das mit dem Ordner wech...)...und in den "Initialize" der Portal-DB
