Ciao
il runtime dell\'agent deve essere impostato su "After new mail has arrived".
Poi usando GetUnprocessedDocuments hai l\'handle a tutti i documenti appena arrivati.
Dim s As New NotesSession
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set coll = db.UnprocessedDocuments
Set doc = coll.GetFirstDocument
While Not doc Is Nothing
Set doc = coll.GetNextDocument(doc)
Wend
Ciao
Andrea Ferro - Lotus Notes Developer - www.work.it
|